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ABSTRACT 

1.0 ABSTRACT 



THIS IS A PDP-11/LSI RESIDENT DIAGNOSTIC WHICH CHECKS THE FUNCTIONALITY 
OF A TU80 HA6TAPE SUBSVSTEH WHILE CONNECTED TO A PDP-11 SVSTEH. 
THE PROGRAM PROVIDES ERROR MESSAGES WHICH IDENTIFY FAILING 
FUNCTIONS THAT AID IN THE REPAIR OF THE DEVICE. REFERENCE THE FOLLOWING 
DIGITAL EQUIPMENT DOCUMENTS: 

1. ENGINEERING SPECIFICATION FOR TU80 MAGTAPE CONTROLLER; DOCUMENT 
NUMBER: YM-C194D-022: REVISION NUMBER 2; DATE: 28-JUL-81. 

2. ENGINEERING SPECIFICATION FOR TU80 DIAGNOSTIC PACKAGE: DOCUMENT 
NUMBER: YM-C194F-00: REVISION NUMBER 0; DATE: 2-SEP-81. 

3. ENGINEERING SPECIFICATION FOR TU80 MAGTAPE SUBSYSTEM; DOCUMENT 
NUMBER: YM-C194S-02; REVISION NUMBER 3: DATE: 10-JUN-81. 

4. CIQPMAO XXDP^ PROGRAMMER'S MANUAL: DOCUMENT NUMBER AC-S296A-AC: 
DATE: U JULY 1980. 
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HARDWARE. SOFTWARE REQUIREMENTS AND PREREQUISITES 

2.0 HARDWARE. SOFTWARE REQUIREHE*>TS AND PREREQUISITES 

2.1 HARDWARE REQUIREMENTS 

PDP-11 FAMILY PROCESSOR WITH 32K WURDS OF MEMORY 
TU80 MAGTAPE SUBSYSTEM (DRIVE AND CONTROLLER) 
CAUTION: DIAGNOSTIC REQUIRES 32K WORDS OF MEMORY 
(28K USEABLE I.E. 4K FOR I/O PAGE) 



2.2 OPTIONAL HARDWARE: 

UP TO 8 TU80 CONTROLLERS PER PDP-11 UP TO 1 DRIVES PER CONTROwlER 



2.3 SOFTWARE REQUIREMENTS 



PDP-11 DIAGNOSTIC SUPERVISOR (HSAADO.SVS) 
PDP-11 DIAGNOSTIC LOADER/MONITOR (XXOP*) 



2.4 PREREQUISITES 



FUNCTIONAL PDP-11/LSI FAMILY CENTRAL PROCESSOR AND MEMORY 

FUNCTIONAL CONSOLE TERMINAL 

FUNCTIONAL STANDALONE DIAGNOSTIC SUPERVISOR 
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OPERATING INSTRUCTIONS-OPERATOR COWANDS 

3.0 OPERATING INSTRUCTIONS-OPERATOR COtWANDS 

3.1 OPEnaTOR COfWANDS 

THE TU80 DIAGNOSTIC IS A PPP-II DIAGNOSTIC SUPERVISOR COMPATIBLE 
PROGRAM. ALL LOADING AND RUN TIME INSTRUCTIONS CAN BE REFERENCED 
IN THE PDP-11 PROGRAMMER'S MANUAL "CIQPMAO XXDP" PROGRAMMER'S MANUAL 
NUMBER AC-S296A-AC. 

BOOT THE DIAGNOSTIC XXOP^ MEDIA (OPERATOR RESPONSES ARE UNDERLINED) 

CHMDLBO XXDP^ DL MONITOR 28K 
BOOTED VIA UNIT 0 

ENTER DATE (DD-MMM-YV): 29-JAN-82 
RESTART ADDRESS: 153726 
50 HZ? N <CR> 

LSI? N V 

THIS IS XXOP* TYPE "H" OR "H/l" FOR DETAILS 
R CZTUUA 

CZTUUABINDRS LOADED 

DIAG. RUN TINE SERVICES REV 0. APR 79 

CZTUU-A-0 

****TU80 LOGIC DIAGNOSTIC**** 

UNIT IS TUBO 
DR> 

DRS>START/FLAG:PNT:HOE 

THE ABOVE COMMAND WILL START THE DIAGNOSTIC. THE COMMAND HAS TWO 
SWITCHES ON yHICH ARE "?RIH1 EACH TEST NBR. AS EXECUTED" AND "HALT ON 
ERROR". 



3.2 HARDWARE PARAMETERS 



AFTER INITIAL STARTING OF THE PROGRAM (START COMMAND TO THE 
DIAGNOSTIC SUPERVISOR), THE PROGRAM WILL ISSUE THE "CHANGE HW?* 
QUESTION TO ASK IF THE HARDWARE PARAMETERS ARE TO BE CHANGED 
(BY THE OPERATOR). 

ON A 'V (NO) RESPONSE TO THE "CHANGE HW?" QUESTION, THE 
DIAGNOSTIC WILL NOT RUN. IT WILL GIVE THE MESSAGE 'XO UNIT". 
A "Y" (YES) IS REQUIRED. AND AT LEAST A "1" IS REQUIRED AT 
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THE "fUNlTS (D)?" QUESTION. 

TSBA/TSOB^I 72520, VECTOR -224 

ON A "Y" (YES) RESPONSE TO THE QUESiiON. THE FOLLOWING QUESTIONS 
WILL THEN BE ASKED TO ALLOW THE OPERATOR TO SELECT THE UNITS 
TO BE TESTED. A VALUE. IF PRESENT. LOCATED TO THE LEFT OF THE 
QUESTION HARK IS THE DEFAULT VALUE THAT WILL BE TAKEN ONLY IF 
A CARRIAGE RETURN IS TYPED AS A RESPONSE. A "(D)" IN A QUESTION 
INDICATES THAT A DECIMAL NUMBER IS REQUIRED AS A RESPONSE. AN 
"(0)" INDICATES AN OCTAL NUMBER IS BEING SOLICITED. AN "(L)" 
THAT A LOGICAL RESPONSE IS TO BE MADE: 'V FOR YES. "H* FOR NO. 

f UNITS (0) ? < ENTER THE NUMBER OF N7454 CONTROLLERS 
PRESENT TO BE TESTED> 

UNIT 0 

DEVICE ADDRESS (0) 172520 ? <ENTER THE ADDRESS OF THE 

TSBA/TSDB RE6ISTER> 

VECTOR (0) 224 ? <ENTER ADDRESS OF INTERRUPT 

VECTOR> 

THE ADDRESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF THE 
NUMBER OF UNITS (CONTROLLERS) SPECIFIED IN THE "«UNITS ?" 
QUESTION. LOGICAL UNIT NUMBERS ARE ASSIGNED IN ORDER BEGINNING 
AT 0. UP TO EIGHT UNITS CAN BE SELECTED FOR TESTING. 



3.5 SOFTWARE PARAMETERS 



THE FOLLOWING QUESTIONS ARE ASKED ON A START. RESTART. OR CONTINUE. 
THEY ALLOW FLEXIBILITY IN THE WAY THE PROGRAM BEHAVES. 

CHANGE SW (L) ? < TYPE "Y" TO CAUSE THE FOLLOWING 
QUESTIONS TO BE ASKED.> 

INHIBIT ITERATIONS (L) N ? < TYPE 'T' TO PREVENT MULTIPLE 

ITERATIONS OF CERTAIN TESTS. 
THIS CAUSES EACH TEST PASS TO 
RUN AS QUICKLY AS POSSIBLE. 
ONLY QUICK-RUNNING LOGIC 
TESTS USE MULTIPLE ITERATIONS.> 
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OPERATING INSTRUCTIONS - SAMPLE PRINTOUTS 



4.0 OPERATING INSTRUCTIONS - SAMOLE PRINTOUTS 

4.1 EXAMPLE OF ALL TESTS RUN TOGETHER 



TST: 001 INITIALIZE «1 

TST: 002 RAM TEST 

TST: 003 COMMAND REJECT TEST 

TST: 004 WRITE CHARACTERISTICS TEST 

TST: 005 VOLUME CHECK 

TST: 006 COMPLETION INTERRUPT TEST 

TST: 007 BASIC PACKET PRQTOCAL TEST 

TST: 008 NON-TAPE MOTION COMMANDS TEST 

TST: 009 DMA MEMORY ADDRESSING TEST 

TST: 010 INITIALIZATION AFTER WRITE CHARACTERISTICS TEST 
TST: Oil BASIC WRITE SUBSYSTEM MEMORY TEST 

0 ERRORS 

NOTE: PROGRAM NOW STARTS OVER AGAIN AT TEST 1 
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OPERATING INSTRUCTIONS - SAMPLE ERROR MESSAGES 



S€Q 8 



S.O OPERATING INSTRUCTIONS - SAHOLE ERROR HF.SSAGES 



ERROR MESSAGE EXAMPLE 1 



TST: 001 FIFO EXERCISER TEST 

C2TUA HRD ERR 01610 ON UNIT 00 TST 016 SUB 000 PC: 0A0624 
FIFO STATUS (IN VORD 9) INCORRECT AFTER URITE FIFO 

TAPE BUS SIGHALS IN WORD #8: - DESIGNATOR <BIT «> 
PARERR<1S> lEOT <12> IFNK <9> IRDY<6> IRUD<2> 
IRESV2<U> IIDENT<11> IHER <8> IONL<S> 1FBV<1> 
IRESV1<13> ICER <10> ISPEED<7> ILDP<4> IFPT<0> 
TAPE BUS SIGINALS IN WORD #9: 
DATNIS<7> ILU<6> OUTRDY<S> INIIDY<4> 
MESSAGE BUFFER ADDRESS « 047352 
MESSAGE BUFFER CONTENTS: 
WORD #0 EXPD: 100020 RECV: 100020 XOR: 000000 
000012 RECV: 000012 XOR: 000000 
000000 RECV: 000000 XOR: 000000 
000010 RECV: 000010 XOR: 000000 
000000 RECV: 000000 XOR: 000000 
000000 RECV: 000000 XOR: 000000 
000000 RECV: 000000 XOR: 000000 
000000 RECV: 000000 XOR: 000000 
070217 RECV: 070217 XOR: 000000 
000074 RECV: 000034 XOR: 000040 



WORD #1 EXPD: 
WORD #2 EXPD: 
WORD #3 EXPD: 
WORD #4 EXPD: 
uC9D fS EXPD: 
WORD #6 EXPD: 
WORD #7 EXPD: 
WORD #8 EXPD: 
WORD «9 EXPD: 



ERROR MESSAGE EXAMPLE 2 

CZTUUA HRD ERR 001S9 ON UNIT 00 TST 001 SUB 005 PC: 026202 
TSSR NOT CORRECT AFTER SPACE RECORDS COMMAND 

TSSR « 100214 

TSSR BITS SET: SC.SSR 

TERMINATION CLASS CODE > UNRECOVERABLE ERROR 

PACKET ADDRESS « 026420 

PACKET WORD f - 140010 

PACKET WORD « ' 000010 

PACKET WORD f z 000000 

PACKET WORD f ' 000024 



ERROR MESSAGE EXAMPLE 3 

CZruWA HRD ERR 00121 ON UNIT 00 TST 001 SUB 002 PC: 023306 
MOT BIT (XSTO) NOT SET DURING REWIND (EXTENDED FEATURES MODE) 
EXPD: 000312 RECV: 000112 XOR: 000200 

PROGRAM RUN TIMES 
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6.0 PROGRAM RUN TIMES 



THE AVERAGE RUN TIMES OF THE PROGRAM ARE LISTED BELOW. THESE FIGURES ARE 
TO BE USED AS A GUIDE. THE TIMING WAS DONE ON A PDP-11/23 (LSI) 
PROCESSOR WITH A LA-34 CONSOLE. 

THE PROGRAM RUNS IN TWO MODES: NO ITERATIONS AND DEFAULT NODE. IN THE 
NO ITERATIONS MODE, EACH TEST IS RUN ONCE, WITH NO ITERATIONS. IN THE 
DEFAULT NODE EACH TEST IS REPEATED BY THE NUMBER OF TINES INDICATED 8V 
THE ITERATION COUNT. NO ITERATIONS NODE IS SELECTED BY ANSWERING THE 
INHIBIT ITERATIONS QUESTION WITH A "V" (YES). 



TEST 


N/I 


ITER 


DEF 


NUNBER 


SECS. 


SECS 


SECS. 


1 


1 


30 


29 


2 


25 


120 


95 


3 


25 


475 


450 


4 


20 


20 


0 


S 


1 


10 


9 


6 


20 


20 


0 


7 


2 


1 


1 


8 


8 


11 


3 


9 


1 


1 


0 


10 


1 


1 


0 


11 


1 


1 


0 



THE TINES REQUIRED TO RUN TESTS 1 THROUGH 12 IN ONE CONNANO: 

Q.V. 1 NIN 57 SECONDS 

DCFAULT 12 NINS 
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7.0 TEST DESCRIPTIONS 
7.1 TEST 1 - TIALIZATION TEST #1 



• NOTE: IF THIS TEST DETECTS AN ERROR REPLACE THE TU80'S 

• CONTROLLER (n7454) 



THIS TEST VERIFIES THAT THE n745« MODULE'S DEVICE REGISTERS ARE 
ACCESSIBLE ON THE BUS (SUBTEST 1) AND THEN CHECKS THAT THE 
BUILT-IN INITIALIZATION SELF-TEST NICRODIAGNOSTIC DID NCT FIND 
ANY BASIC PROBLEMS WITH THE NODULE. AREAS OF LOGIC TESTF.D BY THE 
SELF-TEST SEQUENCER ARE AS FOLLOWS: ROM AND PIPELINE REGISTER, 
SEQUENCER. INTERNAL BUSES, 2901 MICROPROCESSOR, RAM AND 
TRANSPORT STATUS FLOPS. THIS TEST INITIALIZES THE CONTROLLER 
BY ISSUING THE BUS INIT SIGNAL VIA A RESET INSTRUCTION* OR 
BY WRITING INTO THE TSSR REGISTER, AND THEN CHECKS THE CONTENTS 
OF THE TSSR REGISTER. SUCCESSFUL INITIALIZATION IS INDICATED 
BY SUBSYSTEM READY (SSR) AND NEED BUFFER ADDRESS (NBA) BITS 
BEING SET (1) AND ALL OTHER BITS (EXCEPT A17, A16, AND OFL, 
WHICH ARE IGNORE FOR THIS TEST) BEING CLEARED (0). IF THE 
CONTENTS OF THE TSSR ARE NOT AS EXPECTED, AN ERROR REPORT 
IS ISSUED LISTING THE EXPECTED DATA, ACTUAL DATA. AND THE 
DISCREPANCIES. SUBTEST RUN FORCES FORCES SELF-TEST TO RUN 
BY DOING A BYTE WRITE TO THE TSSR. 



7.2 TEST 2 - RAM TEST 



* NOTE: IF THIS TEST DETECTS AN ERROR REPLACE THE TU80*S • 

• CONTROLLER (M74S4) • 



THIS TEST VERIFIES THAT ALL LOCATIONS OF THE RAM ON THE M74S4 
CAN PROPERLY STORE AND READ BACK ALL DATA PATTERNS, AND THAT 
EACH RAM LOCATION IS UNIQUELY ADDRESSED (IE: THAT ONE AND ONLY 
ONE LOCATION IS ACCESSED BY ANY PARTICULAR ADDRESS). THESE TESTS 
ARE PERFORMED BY THREE SUBTESTS DESCRIBED BELOW. 

7.2.1 TEST 2, SUBTEST 1:- 

THIS SUBTEST VERIFIES EACH LOCATION BY PERFORMING THE FOLLOWING 
SEQUENCE FOR EACH ADDRESS 0-377 (OCTAL) : 

1. THE ADDRESS TO BE TESTED IS LOADED INTO THE TSDB^I 
(VIA A HI-WRITE BYTE). 

2. THE ADDRESSED RAM LOCATION IS READ, THEN WRITTEN INTO 
THE LOW BYTE OF THE TSBA. THE LOW BYTE OF TSDB. 
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3. THE LOW BYTE OF THE TSBA IS CHECKED TO SEE IF IT 
CONTAINS THE DATA PATTERN ORIGINALLY WRITTEN; A 
DISCREPANCY IS REPORTED AS AN ERROR. 

4. THE ADDRESS OF THE LOCATION BEING TESTED IS AGAIN 
WRITTEN INTO TSDB^I (HI-BYTE WRITE), TO CAUSE THE 
LOCATION UNDER TEST TO AGAIN BE READ INTO THE LOW 
BYTE OF TSBA. THE LOW BYTE OF TSBA IS AGAIN CHECKED 
AND DISCREPANCIES REPORTED. 

7.2.2 TEST 2, SUBTEST 2:- 

THIS SUBTEST USES THE SAME RAN READ/WRITE TECHNIQUES AS 
SUBTEST 1. EXCEPT THAT MEMORY IS FILLED WITH ZEROS AND A 
ONES WORD IS 'VALKED" DOWN THROUGH. PRIOR TO THE ALL ONES 
WRITE TO MEMORY THE Ms;MORY IS CHECKED TO BE SURE THAT THE 
ZERO WORD HASN'T 'IPICKED" A BIT. 

7.2.3 TEST 2. SUBTEST 3:- 

THIS SUBTEST IS SIMILAR TO SUBTEST 2. EXCEPT THAT MEMORY IS 
FIRST SET TO ALL ONES AND A BYE OF ZEROS IS "WALKED" DOWN 
THROUGH MEMORY BEGINNING AT LOCATION TOP-2. 

7.3 TEST 3: COMMAND REJECT 

• NOTE: IF THIS TEST DETECTS AN ERROR REPLACE THE TU80*S • 

• CONTROLLER (M74S4) • 

THIS TEST VERIFIES THAT ALL COMMANDS OTHER THAN WRITE 

CHARACTERISTICA ARE REJECTED DUE TO THE NEED BUFFER ADDRESS 

(NBA) BIT BEING SET IN TSSR. AND THAT THE TSBA« AND THE TSSR 

REGISTERS ARE SET IN THE PROPER STATE AFTER EACH COMMAND 

IS REJECTED. THIS TEST CHECKS THE MICROPROCESSOR SEQUENCING* 

BASIC COMMAND DECODING* AND DATI DMA HANDLING. THE TEST CONTAINS 

TWO SUBTESTS: SUBTEST 1 SEQUENCES THROUGH ALL COMMAND WORDS 

(OTHER THAN WRITE CHARACTERISTICS) WITH THE INTERRRUPT ENABLE BIT (IE) BIT 

CLEAR AND VERIFIES THAT AN INTERRUPT IS NOT GENERATED BY 

THE REJECTED COMMAND; SUBTEST TWO PERFORMS SIMILARLY 

TO SUBTEST 1 BUT SETS THE IE BIT IN EACH COMMAND WORD 

AND VERIFIES THAT AN INTERRUPT IS GENERATED WHEN THE COMMAND 

IS REJECTED. THE SUBTEST 1 SETS UP THE INTERRUPT SERVICE 

ROUTINE TO FLAG UNEXPECTED INTERRUPTS. THE COMMAND WORD 

IN THE COMMAND BUFFER IS INITIALIZED TO 100000 (OCTAL) AND 

THE REMAINING THREE WORDS IN THE COMMAND BUFFER ARE SET 

TO KNOWN UNIQUE PATTERNS. THEN THE FOLLOWING SEQUENCE IS 

PERFORMED: 

1. INITIALIZE THE CONTROLLER BY WRITING INTO 

THE TSSR, PROPER INITIAL CONDITIONS ARE 
VERIFIED. 
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2. TSDB IS WRITTEN WITH ADDRESS OF THE COWAND 
BUFFER TO START PROCESSING. 

3. THE PROGRAM WAITS FuR SSR TO SET; IF SSR DOES 
NOT SET, AN ERROR REPORT IS ISSUED AND THE TEST 
IS ABORTED. 

4. THE CONTENTS OF THE TSSR ARE CHECKED. TSSR IS 
CORRECT IF IT CONTAINS EITHER OCTAL 102206 OR 
102306 (BIT 6 DEPENDS ON THE STATE OF THE TAPE 
TRANSPORT). 

5. THE CONTENTS OF TSBA ARE CHECKED. TSBA SHOULD 
CONTAIN THE INITIAL COMMAND BUFFER ADDRESS 
(LOADED IN STEP 2) IE: TSBA SHOULD POINT TO 
THE COMMAND PACKET. 

6. USING THE MAINTANENCE MODE WRAP AROUND FUNCTIONS, 
THE COMMAND IMAGE BLOCK IN THE M7454*S RAM 
(LOCATIONS 20 - 27 (OCTAL)) ARE CHECKED: THE 
IMAGE SHOULD CONTAIN A COPY OF THE FOUR COMMAND 
PACKET WORDS AS SET UP IN CPU MEMORY. 

7. THE COMMAND WORD IN THE COMMAND BUFFER IS IN- 
CREMENTED TO THE NEXT PATTERN NOT CONTAINING 
WRITE CHARACTERISTICS: OR IE. THE REMAINING 
THREE WORDS OF THE COMMAND BUFFER ARE SEQUENCED 
WITH PSEUDO-RANDOM DATA. IF THE COMMAND WORD HAS 
NOT REACHED ITS MAXIMUM VALUE (17777^1) THE 
TEST SEQUENCE IS REPEATED. 

SUBTEST 2 IS IDENTICAL TO SUBTEST 1, EXCEPT THAT THE PROGRAM 
CAUSES THE IE BIT TO BE SET IN EACH COMMAND WORD AND THEN 
VERIFIES THAT AN INTERRUPT OCCURS.: 

7.4 TEST 4 - WRITE CHARACTERISTICS 

• NOTE: IF THIS TEST DETECTS A FAILURE REPLACE THE TU80*S • 

• CONTROLLER (N74S4) • 

THIS TEST VERIFIES BASIC OPERATION OF THE WRITE CHARACTERISTICS 
COMMAND. IT VERIFIES THAT THE COMMAND BLOCK AND CHARACTERISTICS 
DATA BLOCK ARE FETCHED PROPERLY FROM CPU MEMORY, THE NEED BUFFER 
ADDRESS (NBA) BIT IN THE TSSR IS HANDLED PROPERLY, AND THAT A 
PROPER MESSAGE PACKET IS STORED. WHERE APPROPRIATE. THIS TEST 
DOES NOT CHECK THAT THE VARIOUS FUNCTIONS ENABLED BY CHARACTERISTICS 
MODE DATA BITS OPERATE PROPERLY; THE FUNCTIONING OF THESE BITS 
IS VERIFIED IN SUBSEQUENT TESTS. ALL COMMANDS EXECUTED IN THIS 
TEST HAVE THE INTERRUPT ENABLE (IE) BIT CLEARED TO ZERO. 
SO NO INTERRUPTS SHOULD BE GENERATED. HOWEVER, THE PROGRAM 
RUNS AT PROCESSOR PRIORITY ZERO. WITH THE INTERRUPT SERVICE 
ROUTINE SET UP TO FLAG UNEXPECTED INTERRUPTS. IF AN INTERRUPT 
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OCCURS A PROBLEM EXISTS IN EITHER THE LSI-11 BUS INTERFACE SECTION 
OR IN THE ROM OR PIPELINE. 

THIS TESTS VARIOUS MICROPROGRAM SEQUENCES, COMMAND DECODING, 
DMA LOGIC, AND BASIC PACKET PROTOCAL HANDLING. THIS IS THE 
FIRST TEST IN WHICH DATA DMA CYCLES (FOR STORING THE MESSAGE 
PACKET) ARE PERFORMED. ANY ERRORS IN THE BODY OF THE TEST 
(IE: ERRORS OTHER THAN INITIALIZATION ERRORS RELATED TO THE 
TRANSPORT BUS) DEFINITELY INDICATE A BAD N74S4 MODULE. 
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7. A.I TEST SUBTEST 1:- 

VERIFIES BASIC STANDARD OPERATION (USING PROPER MESSAGE BUFFER 
AND LENGTH DATA IN AN INCREHENTIN': SERIES OF VALUES FOR THE 
FOURTH CHARACTERISTICS DATA IN THE CHARACTERISTICS DATA BLOCK.). 
AFTER THE COHHAND IS EXECUTED FOR EACH VALUE OF THE FOURTH 
CHARACTERISTICS DATA UORO. THE PROGRAM VERIFIES THAT: 

1.THE TSSR IS CORRECT, INCLUDING A CHECK THAT THE NBA 
BIT IS CLEARED AND THAT NORNAL TERMINATION WAS 
ACCOMPLISHED.; 

Z.THAf A PROPER MESSAGE PACKET IS STORED. 

3. THAT THE COMMAND PACKET CHRACTERISTIC DATA. AND MESSAGE 
PACKET IMAGE BLOCKS IN M74S4 RAM ARE CORRECT. 

7.4.2 TEST 4, SUBTEST 2:- 

VERIFIES THAT THE COMMAND IS REJECTED AND THAT THE NBA BIT DOES 
NOT GET CLEARED IF NONZERO BITS ARE SET INTO ANY RESERVED OR 
UNUSED FIELD WITHIN THE FIRST THREE COMMAND PACKET WORDS. 

7.4.3 TEST 4. SUBTEST 3:- 

VERIFIES THAT THE COMMAND IS REJECTED AND THAT THE NBA BIT 
DOES NOT GET CLEARED IF THE MESSAGE BUFFER ADDRESS SPECIFIED 
IN THE CHARACTERISTICS DATA BLOCK DOES NOT SPECIFY A LEGAL 
7.5 TEST S: VOLUME CHECK 



• NOTE: IF THIS TEST DETECTS AN ERROR REPLACE THE TU80*S 

• CONTROLLER (M7454) 



THIS TEST VERIFIES THAT THE VOLUME CHECK (VCK> BIT, A FLAG HELD 
WITHIN THl; M7454 AND APPEARING IN XSTO. IS SET BY INITAILIZE AND 
CLEARED BY EXECUTING A WRITE CHARACTERISTICS COMMAND WITH THE CVC 
SET. IT IS ALSO VERIFIED THAT A WRITE CHARACTERISTICS WITH THE CVC 
BIT CLEAR DOES NOT AFFECT THE STATE OF THE VOLUME CHECK BIT. THE 
ACTUAL FUNCTION OF VOLUME CHECK. THAT OF PREVENTING OR ALLOWING 
A TAPE MOTIN COMMAND DEPENDING ON WHETHER VOLUME CHECK IS SET OR 
CLEAR , IS NOT CHECKED BY THIS TEST; THIS FUNCTIONALITY IS CHECKED 
IN THE INDIVIDUAL TESTS OF TAPE NOTION COMMANDS. 

THE TEST PROCEEDS AS FOLLOWS: 

1. THE CONTROLLER IS INITIALIZED BY WRITING INTO THE TSSR. 

2. A WRITE CHARACTERISTICS COMMAND IS ISSUED (WITH CVC^O) 

3. THE PREVOUS STEP IS REPEATED TO VERIFY THAT VCK DOES 
NOT CHANGE (REMAINS AT 0). 
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4. A WRITE CHARACTERISTICS CONHAND IS ISUED WITH CVC*1 
AND THE VCK BIT IN XSTO IN THE MESSAGE BUFFER IS 
EXAMINED: THE VCK BIT SHOULD BE CLEAR (0). 

5. A WRITE CHARACTERISTICS COMMAND IS ISUED WITH CVC^O 
AND THE VCK BIT IN XSTO IN THE MESSAGE BUFFER IS 
EXAMINED; THE VCK BIT SHOULD REMAIN CLEAR (0). 

WHICH SHOULD CAUSE RAM LOCATION 0 TO BE WRITTEN TO ALL 
rs SINCE 2901 REGISTERS 10 AND 11, SPECIFYING THE RAM 
ADDRESS, SHOULD BE 0. RAM LOCATION IS VERIFIED BY 
LOW BYTE OF TSBA SHOULD CONTAIN ALL VS. 

4. THE ENTIRE RAM IS SCANNED. LOCATION 0 SHOULD CONTAIN 
ALL 1*S AND THE REMAINING LOCATIONS. EXCEPT FOR THE 
MESSAGE BUFFER IMAGE AREA, SHOULD CONTAIN 0. 
DISCREPANCIES ARE REPORTED. AN ERROR AT THIS POINT IS 
MOST LIKELY DUE TO A ROM, PIPELINE OR SEQUENCER PROBLEM 
OR A TIMING PROBLEM. 



7.6 TEST 6 - COMPLETION INTERRUPT 



• NOTE: IF THIS TEST DETECTS AN ERROR REPLACE THE TUBO'S • 

• CONTROLLER (M7454) * 



THIS TEST VERIFIES THAT AN INTERUPT IS GENERATED AT THE COMPLETION 
OF THE WRITE CH^ACTERISTICS COMMAND IF THE INTERRUPT ENABLE (IE) 
BIT IN THE COMMAND HEADER WORD IS SET. THIS TEST CHECKS THE 
FUNCTIONING OF THE INTERRUPT LOGIC AND BASIC PROCESSING CF THE 
IE BIT. 

THE SEQUENCES OF TEST 7 ARE REPEATED. EXCEPT THAT THE INTERRUPT 
SERVICE ROUTINE IS SET UP TO EXPECT INTERRUPTS AND EACH WRITE 
CHARACTERISTICS COMMAND IS ISSUED WITH THE IE BIT SET (M. IT 
IS VERIFIED. WHERE APPROPRIATE , THAT THE STATUS BIT IN XSTO 
OF ANY MESSAGE PACKET IS SET AND THAT A COHPLETTION INTERRUPT 
IS GENERATED. FINALLY A SEQUENCE OF TWO COMMANDS ARE ISSUED, THE 
FIRST WITH IE*1, AND THE SECOND WITH IE«0. IT IS VERIFIED THAT 
NO INTERRUPT IS GENERATED AFTER THE SECOND COMMAND AND THAT THE 
IE BIT IN XSTO IS 0. 

7.7 TEST 7 - BASIC PACKET PROTOCAL 

* NOTE: IF THIS TEST DETECTS AN ERROR REPLACE THE TU80*S • 

* CONTROLLER (M74S4) • 



THIS TEST VERIFIES BASIC OPERATION OF THE MESSAGE BUFFER RELEASE 
COMMAND, THE FUNCTION OF THE ACK BIT IN THE COMMAND HEADER WORD, 
AND THE REGISTER MODIFICATION REFUSED (RNR) LOGIC. 
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7.7.1 TCST 7, SUBTEST 1:- 

VERIFIES THAT THE BASIC MESSAGE BUFFER RELEASE COWUND OPERATES 
PROPERLr WHEN MESSAGE BUFFER RELE«SE INTERRUPTS ARE DISABLED 
(ERUO ON PREVIOUS WRITE CHARACTERISTICS COMMAND). CHECKS THAT 
TSSR IS UPDATED PROPERLY AND THAT NO INTERRUPT IS GENERATED 
(EVEN IF THE IE BIT IN THE COMMAND WORD IS SET) AND THAT NO 
MESSAGE PACKET IS STORED. 

7.7.2 TEST 7. SUBTEST 2:- 

VERIFIES THAT THE BASIC MESSAGE BUFFER RELEASE COMMAND OPERATES 
PROPERLY WHEN MESSAGE BUFFER RELEASE INTERRUPTS ARE ENABLED 
(ERI«1 ON PREVIOUS WRITE CHARACTERISTICS COMMAND). CHECKS THAT 
TSSR IS UPDATED PROPERLY AND THAT AN INTERRUPT IS GENERATED (IF 
THE IE BIT IN THE COMMAND WORD IS SET) BUT THAT NO MESSAGE 
PACKET IS STORED. 

7.7.S TEST 7. SUBTEST 5:- 

VERIFIES THAT AfTER TNE CPU GIVES UP OWNERSHIP Of A MESSAGE 
BUFFER (VIA THE MESSAGE BUFFER RELEASE COMMAND), THAT A NEW 
COMMAND (E.G.. WRITE CHARACTERISTICS) IS PROPERLY EXECUTED WHEN 
ISSUED WITH THE ACK BIT IN THE COMMAND HEADER EITHER SET OR CLEAR. 

7.7.4 TEST 7. SUBTEST 4:- 

VERIFIES THAT THE REGISTER VERIFICATION REFUSED (RMR) BIT IN 
TSSR OPERATES PROPERLY WHEN A COMMAND (WRITE CHARACTERISTICS) 
IS BEING EXECUTED. TNE PROGRAM ISSUES TNE WRITE CHARACTERISTICS 
COMMAND (FROM ONE COMPMND BUFFER) THEN IMMEDIATELY WRITES THE 
ADDRESS OF ANOTHER COMPIAND BUFFER (CONTAINING ANOTHER WRITE 
CHARACTERISTICS CONMND, MT WITH THIS ONE SPECIFYING DIFFERENT 
CHARACTERISTICS DATA). UHCN SSR SETS, TNE PROGRAM VERIFIES THAT 
THAT THE FIRST COMPIAND COMPLETED PROPERLY, THAT RMR IS SET, AND 
THAT TNE SECOND COMNAND IS IGNORED.; 
7.8 TEST 8 - NON-TAPE MOTION COMMANDS 

• NOTE: IF THIS TEST DETECTS AN ERROR REPLACE THE TU80*S • 

• CONTROLLER (N7454) • 

THIS TEST VERIFIES PROPEf . ERATION OF THE GET STATUS AND 
INITIALIZE COMMANDS. THREE SUBTESTS ARE USED. THE FIRST TWO 
VERIFY THAT TNE RESPECTIVE COMMANDS RU TO COMPLETION AND 
STORE A VALID MFSSA6E PACKET. 

TEST 9: COMPLETION INTERRUPT 

THIS TEST VERIFIES THAT AN INTERRUPT IS GENERATED AT THE 
COMPLETION OF THE WRITE CHARACTERISTICS COMMAND IF THE INTERRUPT 
ENABLE (IE) BIT IN THE COMMAND NEADER WORD IS SET. THIS TEST 



E 2 

CZTUWAO TU80 FRONT END PRT A MACRO h1200 29>MAR-83 13:24 PAGE 10-3 
USER DOCUMENTATION 

CHECKS THE FUNCTIONING OF THE INTERRUPT LOGIC AND BASIC 
PROCESSING OF THE IE BIT. 

THE SEQUENCES OF TEST 7 ARE REPEA^FD. EXCEPT THAT THE INTERRUPT 
SERVICE ROUTINE IS SET UP TO EXPECT INTERRUPTS AND EACH WRITE 
CHARACTERISTICS COMMAND IS ISSUED WITH THE IE BIT SET (*.}. IT 
IS VERIFIED, UHERE APPROPRIATE, THAT THE IE STATUS BIT IN XSTO 
OF ANY MESSAGE PACKET IS SET AND THAT A COMPLETION INTERRUPT IS 
GENERATED. FINALLY A SEQUENCE OF TWO COMMANDS ARE ISSUED. THE 
FIRST WITH IE«1 AND THE SECOND WITH IE"0. IT IS VERIFIED THAT 
NO INTERRUPT IS GENERATED AFTER THE SECOND COMMAND AND THAT THE 
IE BIT IN XSTO IS 0. 



7.9 TEST 9 - MEMORY ADDRESSING TEST 



• NOTE: IF THIS TEST DETECTS AN ERROR REPLACE THE TUBO'S 

• CONTROLLER (M74S4> 



THIS TEST VERIFIES THAT THE CONTROLLER CAN PROPERLY ADDRESS 
AND ACCESS ALL AVAILABLE CPU MEMORY ( OTHER THAN THAT OCCUPIED 
BY THE DIAGNOSTIC AND THE DIAGNOSTIC SUPERVISOR CODE) FOR BOTH 
READING (DATP AND WRITING (DATO). VERIFIED ARE THE PDP-11 BUS 
DRIVERS FOR ALL AVAILABLE ADDRESS LINES. UP TO THIS POINT ONLY 
16 BITS HAVE BEEN USED FOR DMA TRANSFERS. 

7.9.1. TEST 9, SUBTEST 1:- 

THIS SUBTEST VERIFIES THE CONTROLLER CAN FETCH ^ GET STATUS 
COMMAND FROM ALL AVILABLE MEMORY LOCATIONS. TWO WORD BLOCKS ARE 
TESTED ONE AT A TIME BY FIRST SETTING ALL AVAILABLE MEMORY 
TO A BACKGROUND PATTERN OF 12S2S2. A GET STATUS COMMAND IS THEN 
EXECUTED TO VARIOUS ADDRESSES IN EACH AVAILABLE MEMORY 4K BLOCK. 
THE VARIOUS ADDRESSES ARE DETERMINED BY FLOATING FIRST A 1 THEN 
A 0 THROUGH THE ADDRESS BITS. 

7.9.2 TEST 9. SUBTEST 2:- 

THIS SUBTEST VERIFIES THE CONTROLLER CAN DEPOSIT MESSAGE PACKETS 
TO ALL AVAILABLE MEMORY LOCATIOJiS. FIRST ALL AVAILABLE MEMORY 
IS SET TO A BACKGROUND PATTERN OF 125252. WRITE CHARACTERISTICS 
COMMANDS ARE THEN EXECUTED WITH MESSAGE BUFFER ADDRESSES SET 
TO VARIOUS ADDRESSES IN EACH AVAILABLE MEMORY LOCATION. THE 
VARIOUS ADDRESSES ARE DETERMINED BY FLOATING FIRST A 1 THEN A 
0 THROUGH THE ADDRESS BITS. 



7.9.3 TEST 9, SUBTEST 3:- 
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THIS SUBTEST VERIFIES THAT A CONTROLLER CAN FETCH A WRITE 
CHARACTERISTICS DATA BLOCK FROM ALL AVAILABLE MEMORY 
LOCATIONS. FIRST ALL AVAILABLE NE**ORY IS SET TO A BACKGROUND 
PATTERND OF 125252. THE URITE CHARACTERISTICS COfWANDS ARE 
EXECUTED WITH CHARACTERISTIC DATA BLOCKS AT VARIOUS MEMORY 
ADDRESSES. THE VARIOUS MEMORY ADDRESSES ARE DETERMINED BY 
FLOATING FIRST A 1 THEN A 0 THROUGH THE ADDRESS BITS. 

7.9.4 TEST 9. SUBTEST 4:- 

THIS SUBTEST VCRIFIES THE NXM ERROR BIT IN THE TSSR REGISTER IS 
SET WHEN ATTEMPTING TO FETCH DATA ( A CHARACTERISTIC DATA BLOCK) 
FROn SELECTED NONEXISTANT LOCATIONS. IF NXM FAILS TO SET IT IS 
LIKELY THAT AN LSI-11 BUS DRIVER IS FAILING TO ASSERT AN ADDRESS 
LINE. ADDRESSES TESTED INCLUDE ALL COMBINATIONS OF HIGH ORDER 
ADDRESS BITS (IE: BITS 16-21). 



F 2 

SEO IS 



7.10 TEST 10 - INITIALIZE «3 



• NOTE: IF THIS TEST DETECTS AN fRiOR WhMl TNC TUfO*S 

• CONTROLLER (M74S4) 



THIS TEST VERIFIES THAT A HARDWARE INITIALIZE COMAND INVOKED 
AFTER A URITE CHARACTERISTICS COHHAND SETS UP THE COMMAND, 
MESSAGE AND CHARACTERISTIC IMAGE BLOCCK IN THE CONTROLLER RAM 
CORRECTLY. 



7.11 TEST 11 - BASIC URITE SUBSYSTEM MEMORY COMMAND 



• NOTE: IF THIS TEST DETECTS AN ERROR REPLACE THE TUSO'S • 

* CONTROLLER (M7454) • 



THIS TEST VERIFIES THAT THE URITE SUBSYSTEM MEMORY COMMAND 
WITH A BSELO SELECT CODE OF 0 (NO-OP) EXECUTES CORRECTLY. 
THE TEST FURTHER VERIFIES MICROPROGRAM COMMAND DECODING 
AND HANDLING SEQUENCES. 



858 



0 2 
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860 
866 

867 000000 

868 

869 

875 000000 

876 002000 

877 002000 
002000 

878 
879 
880 
881 
882 
883 
884 

885 002000 

886 002000 
002000 

002000 103 

002001 132 

002002 124 

002003 125 

002004 127 

002005 000 

002006 000 

002007 000 
002010 

002010 101 
002011 

002011 060 
002012 

002012 000001 
002014 

002014 001217 
002016 

002016 052640 
002020 

002020 053000 
002022 

002022 002124 
002024 

002024 002134 
002026 

002026 053220 
002030 

002030 000000 
002052 

002032 000000 
002034 

002034 000000 
002036 

002036 000000 
002040 

002040 053166 
002042 

002042 000000 
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SEO 19 



INITIALIZE SUPERVISOR MACROS 



.SBTTL PROGRAM HEADER 
.MCALL SVC 

SVC 

.ENABLE LC 
.r.;.IST 8EX.CND 
.EN.ABL AMA.ABS 
. = 2000 

BGNMOD TUV2A 

TUV2A:: 

; THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
; THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 



LSNAME: 



LSREV: : 

LIDEPO: 

LSUNIT:: 

LSTIML:; 

LSHPCP; ; 

L$SPCP: I 

L$HPTP: ; 

LSSPTPj! 

LSLADP:; 

LSSTA:: 

L$CO:: 

LS9TYP:! 

LSAPT:: 

LSDTP: : 

LSPftIO:: 



POINTER BGNSU.BGNSF T .B6NAU.BGNDU.BGNRPT .B6NSETUP 
HEADER CZTUW,A.0«655..0 

.-DIAGNOSTIC NAME 

.ASCII fit 
.ASCII nt 
.ASCII /T/ 
.ASCII /U/ 
.ASCII /U/ 
.BYTE 0 
.BYTE 0 
.BYTF 0 



.ASCII 

.ASCII 

.WORD 

.UORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 



/A/ 
70/ 

TSPTNV 

655. 

LIHARD 

LSSOFT 

L$HW 

LSSW 

LSLAST 

0 

0 

0 

0 



;REVISION LEVEL 
;0 

.•NUMBER OF UNITS 
:LONGEST TEST TIME 
; POINTER TO H.W. QUES. 
;POINTER TO S.W. QUES. 
;PTR. TO DEF. H.W. PTABLE 
;PTR. TO S.W. PTABLE 
:DIAG. END ADDRESS 
.•RESERVED FOR APT STATS 

.'DIAGNOSTIC TYPE 
.-APT EXPANSION 



:PTR. TO DISPATCH TABLE 
LSDISPATCH 

;OIAGNOSTIC RUN PRIORITY 

0 



CZTUUAO TU80 FRONT END PRT A 



PROGRAM HEADER 




002044 




002044 


000000 


002046 




002046 


000000 


0020S0 




002050 


003 


0020S1 


003 


002052 




0020S2 


oocooo 


002054 


000000 


002056 




002056 


000000 


002060 




002060 


00333^ 


002062 




002062 


022702 


002064 




002064 


000000 


002066 




002066 


000000 


002070 




002070 


022400 


002072 




002072 


022476 


002074 




002074 


000000 


002076 




002076 


003342 


002100 




002100 


104035 


002102 




002102 


000000 


002104 




002104 


021602 


002106 




002106 


022660 


002110 




002110 


022604 


002112 




002112 


021572 


002114 




002114 


000000 


002116 




002116 


000000 


002120 




002120 


000000 
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LSENVI:: ; FLAGS DESCRIBE HOW IT WAS SETUP 





.WORD 


0 




LSEXP1 : 


• 




;EXPANSI0N WORD 




'.WORD 


0 


LMREV: 


• 
• 




;SVC REV AND EDIT » 




.BYTE 


CSREVISION 




.BYTE 


CSEDIT 




LSEF : : 


.WORD 
.WORD 


0 
0 


:DIAG. EVENT FLAGS 


LSSPC:: 


.WORD 


0 




LSDEVP: 






: POINTER TO DEVICE TYPE LIST 




'.WORD 


LtDVTYP 


LSREPP: 






:PTR. TO REPORT CODE 




'.WORD 


LtRPT 


LtEXP4: 


'.WORD 


0 




LtEXP5: 


'.WORD 


0 




LSAUT : : 


.WORD 


LSAU 


;PTR. TO ADD UNIT CODE 


LSDUT:: 






:PTR. TO DROP UNIT CODE 


LtLUN:: 


.WORD 


LSDU 




.WORD 


0 


:LUN FOR EXERCISERS TO FILL 


LtDESP: 


• 

' .WORD 


LtDESC 


:POINTER TO DIAG. DESCRIPTION 


LSLOAD: 


» 

'eht 


EtLOAD 


;GENERATE SPECIAL AUTOLOAD ENT 


LSETP:: 


.WORD 


0 


: POINTER TO ERRTBL 


L$KP:: 


.WORD 


LSINIT 


:PTR. TO INIT CODE 


LtCCP:: 


.WORD 


LSCLEAN 


;PTR. TO CLEAN-UP CODE 


LtACP:: 


.WORD 


LSAUTO 


;PTR. TO AUTO CODE 


LSPRT : : 


.WORD 


LtPROT 


;PTR. TO PROTECT TABLE 


LITEST: 


• 

'.WORD 


0 


;TEST NUMBER 


LSDLV:: 


.WORD 


0 


: DELAY COUNT 


LSHIHE: 


• 

.WORD 


0 


;PTR. TO HIGH HEH 



I 2 



000003 



172522 
000224 
000240 



CZTuyAO TU80 FRONT END PRT A 
DEFAULT HAROyARE P-TABLE 



888 
889 
890 
891 
892 
893 

894 002122 
002122 
002124 
002124 

895 

896 002124 

897 002126 

898 002130 

899 002132 
002132 

900 
901 
902 
903 
904 
905 

906 002132 
002132 
002134 
002134 

907 

908 002134 

909 002136 
910 

911 

912 002140 

913 002142 

914 002144 
002144 

915 
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SEQ 21 



000004 



000000 
000000 



000031 
000310 



.S8TTL DEFAULT HARDWARE P-TABLE 



THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 
THE TEST-DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
If IDENTICAL TO ThE STRUCTURE OF THE RUN-TINE P-TABLE. 



LSHW: 
DFPTBL:: 



B6NHW 
.WORD 



LI 0000: 



.WORD 
.WORD 
.WORD 
ENDHW 



DFPTBL 

L10000-LSHW/2 



172522 

224 

PRI05 



:DEFAULT HARD-P-TABIE 



2ND (OF 2) REGISTERS. 
INTERRUPT VECTOR 
INTERRUPT PRIORITY. 



.SaTTL SOFTWARE P-TABLE 



THE SOFTWARE P-TABLE CONTAINS THE VALUES OF THE PROGRAM 
PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 



BGNSW 
.WORD 



LSSW:: 
SFPTBL:: 

TRANSTST:: 
NOITS:: 



LERRMAX:: 
6ERRMAX:: 

ENDSW 

L10001: 



SFPTBL 

L10001-LSSW/2 



.WORD 
.WORD 



0 
0 



.WORD 25. 
.WORD 200. 



ENABLE RAM DUMP IF -1 
INHIBIT ITERATION OPTION. 
... 0 s ITERATE. 
...NZ - INHIBIT ITERATE. 
LOCAL (PER TEST) ERROR LIMIT 
GLOBAL (PER UNIT) ERROR LIMIT 
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SOFTWARE P-TABLE 

917 

924 

929 

93S 

936 

937 

938 

939 

940 

941 

942 

943 

944 

948 002144 



100000 
040000 
020000 
01C000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 

001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 
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.SBTTL GLOBAL EQUATES SECTION 



SCO 22 



.SBTTL GLOBAL EQUATES SECTION 



THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
ARE USED IN MORE THAN ONE TEST. 



EQUALS 
BIT DIFINJTIONS 



: GET STANDARD EQUATES. 



will 


100000 
1 vv wv 


BtT14«« 


40000 




20000 
cww 


Bni2«« 


10000 


BITIIm 


4000 


BJT10*« 


2000 


Bn09«« 


1000 


BIT08«« 


400 


BIT07** 


200 


BIT06» 


100 


BIT05*« 


40 


BIT04«« 


20 


BIT03» 


10 


BIT02*« 


4 


BIT01«« 


2 


BITOO*« 

• 


1 


BIT9*« 


8IT09 


BIT8*« 


BIT08 


BIT7«« 


BIT07 


6IT6^« 


BIT06 


BITS" 


BIT05 


BIT4«s 


BIT04 


BIT3" 


BIT03 


BIT2" 


BIT02 


BIT1" 


BIT01 


BITO» 


61 TOO 


• EVENT 


FLAG DEFINITIONS 



EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 



000040 


EF.START» 


32. 


; START COMMAND WAS ISSUED 


000037 


EF.RESTART» 


31. 
30. 


; RESTART COMMAND WAS ISSUED 


000036 


EF. CONTINUE" 


; CONTINUE COMMAND WAS ISSUED 


000035 


EF.NEU" 


29. 


: A NEW PASS HAS BEEN STARTED 


000034 


EF.PWR" 


28. 


: A POWER-FAIL/POWER-UP OCCURRED 



: PRIORITY LEVEL DEFINITIONS 
f 
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000540 


PRl07s« 


340 




DPI OAs s 




000240 


PRI05»« 


240 


vvUCwv 


PRI04«« 


200 


ooouo 


PRI03" 


140 


000100 


PRI02«« 


100 


000040 


PR101«« 


40 


000000 


PRIOOs* 


0 




•OPERATOR FLAG 


000004 


EVL»« 


4 


000010 


LOT«« 


10 


000020 


ADR«s 


20 


000040 


IDU» 


40 


000100 


ISR" 


100 


000200 


UAMss 


200 


000400 


BOE«* 


400 


001000 


PNTsx 


1000 


002000 


PRIss 


2000 


004000 


IXE*« 


4000 


010000 


IBE«« 


10000 


C20000 


IER» 


20000 


040000 


LOE" 


40000 


100000 


HOE*« 


100000 



949 

950 002144 KT11 ; DEFINE NENORV MANAGEMENT REGISTERS 

.SBTTL NEMORV HANAGEHENT DEFINITIONS 

;*KT11 VECTOR ADDRESS 
000250 mVEC« 250 

.■•KT11 STATUS REGISTER ADDRESSES 
177572 SR0« 177572 

177574 SR1« 177574 

177576 SR2« 177576 

172516 SR3s 172516 

• IF NB 

i*USER "V PAGE DESCRIPTOR REGISTERS 
UIPDRO* 177600 
UIPDR1* 177602 
UIPDR2* 177604 
UIPDR3* 177606 
UIPDR4« 177610 
UIPDR5* 177612 
UIPDR6S 1776U 
UIPDR7« 177616 
IF NB 

:*USER "D" PAGE DESCRIPTOR REGISTORS 

UDPDRO* 177620 

UDPDR1* 177622 

UDPDR2* 177624 

UDPDR3* 177626 

UDPDR4* 177630 

UDPDR5* 177632 

UDPDR6* 177634 

UDPDR7* 177636 

.ENDC 
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UIPAROs 1776A0 
UIPARIs 177642 
UIPAR2* 177644 
UIPAR3* 177646 
UIPAR4« 1776S0 
UIPARS> 1776S2 
UIPAR6« 1776S4 
UIPAR7S 1776S6 
• IF NB 

;*USER 'V PAGE ADDRESS REGISTERS 
UDPAR0« 177660 
UDPARU 177662 
UDPAR2« 177664 
UDPAR3* 177666 
UDPAR4S 177670 
UDPAR5« 177672 
UDPAR6S 177674 
UDPAR7X 177676 
.ENDC 
.ENDC 
.IF NB 

.••SUPERVISOR 



r 



PAGE DESCRIPTOR REGISTERS 

SIPDRO* 172200 
SIPDR1* 172202 
SIPDR2* 172204 
SIPDR3* 172206 
SIPDR4« 172210 
SIPDR5« 172212 
SIPDR6S 172214 
SIPDR7« 172216 
• IF NB 

••SUPERVISOR 'D" PAGE DESCRIPTOR REGISTERS 
SDPDRO* 172220 
SDPDR1* 172222 
SDPDR2« 172224 
SDPDR3* 172226 
SDPDR4C 172230 
SDPDR5< 172232 
SDPDR6* 172234 
SDPDR7« 172236 
.ENDC 

.••SUPERVISOR "I" 
SIPARO* 172240 



PAGE ADDRESS REGISTERS 



SIPAR1* 172242 
SIPAR2* 172244 
SIPAR3« 172246 
SIPAR4S 172250 
SIPARS« 172252 
SIPAR6> 172254 
SIPAR7* 172256 
.IF NB 

; •SUPERVISOR "D" PAGE ADDRESS REGISTERS 
SDPARO* 172260 
SDPAR1« 172262 
SDPAR2* 172264 
SDPAR3> 172266 

50PAII4« 172270 
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SEQ 2S 





SDPAftSs 17?272 




SDPAR6S 172274 




SDPAR7s 172276 




FNDC 




.ENOC 




:*KERNEL "1" PAGE 
KIPDROs 172300 


172300 


172302 


KiPDRIx 172302 


172304 


KIPDR2* 172304 


172306 


KlPDR3s 172306 


172310 


K1PDR4S 172310 


172312 


KIPDR5S 172312 


172314 


KIPDR6S 172314 


172316 


KIP0R7« 172316 
.IF NB 




;*KERNEL 'D" PAGE 
KDPDRO* 172320 






KDPDR1* 172322 




KDPDR2* 172324 




KDPDR3* 172326 




KDPDR4* 172330 




KDPDR5* 172332 




KDPDR6' 172334 




KDPDR7* 172336 




.ENDC 




:*KERNEL "I" PAGE 


172340 


KIPARO« 172340 


172342 


KIPAR1* 172342 


172344 


KIPAR2* 172344 


172346 


KIPAR3* 172346 


172350 


KIPA84« 172350 


172352 


KIPAR5« 172352 


172354 


KIPAR6S 172354 


172356 


KIPAR7* 172356 
.IF NB 

:*KERNEL 'V PAGE 
KDPARO* 172360 
KDPAR1* 172362 
KDPAR2* 172364 
KDPAR3* 172366 
K0PAR4« 172370 
KDPAR5S 172372 
K0PAR6* 172374 
KDPAR7S 172376 
.ENDC 
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955 
956 
957 
958 
959 
960 
961 
962 
963 
964 
965 
966 
967 
968 
969 
970 
971 
972 
975 
974 
975 
976 
977 
978 
979 
980 
981 
982 
985 
984 
985 
986 
987 
988 
989 



1006 
1007 
1008 
1009 
1010 
1011 



000004 
000060 
177560 
177562 



100000 
040000 
020000 
010000 
004000 
002000 
001400 
000200 
000100 
000060 
000016 
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.SBTTL TU80 REGISTER AND PACKET DEFINITIONS 



SEO 26 



SOME GENERAL EQUATES. 



ERRVEC» 
TTIVEC" 
TTICSR" 
TTIBFRss 



4 

60 

177560 
177562 



POINTER TO ERROR VECTOR FOR BUS TINE OUT. 
INTERRUPT VECTOR FOR CONSOLE INPUT 
BUS ADDRESS OF CONSOLE INPUT 
CONSOLE INPUT DATA BUFFER 



;BIT DEFINITIONS FOR TSSR REGISTER 



SC* 

BIE- 

SCE= 

RNR: 

NXM- 

NBAb 

HIADDRs 

SSRs 

OFL= 

FATERRs 

TERCLS= 



BIT15 

BIT14 

BIT13 

BIT12 

BIT11 

BIT10 

BIT91BIT8 

BIT7 

BIT6 

BIT4!BIT5 
6IT3!6IT2!BIT1 



;^PECIAL CONDITION 
:BUS INTERFACE ERROR 
; SANITY CHECK ERROR 
;NODIFICATION REFUSED 
;NONEXISTANT NEMORY ERROR 
:NEED BUFFER ADDRESS 
;EXTENDED ADDRESS BITS 
;SUB SYSTEM READY 
:OFF LINE BIT 

; FATAL TERMINATION ERROR CODES 
:TEhNINATION CODES 



BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 0 
<XSTO) 



990 


100000 


XSOTNKs 


Bins 


;TAPE MARK DETECTED 


991 


040000 


XSORLS- 


BIT14 


[RECORD LENGTH SHORT 


992 


020000 


XSOLETs 


BIT13 


; LOGICAL END OF TAPE 


993 


010000 


XSORLL- 


BIT12 


; RECORD LENGTH LONG 


994 


004000 


XSOVLE- 


BIT11 


;URITE LOCK ERROR 


995 


002000 


XSONEF« 


BIT10 


;NON EXECUTABLE FUNCTION 


996 


001000 


XSOlLCs 


BIT9 


; ILLEGAL COMMAND 


997 


000400 


XSOlLAs 


6IT8 


; ILLEGAL ADDRESS 


998 


000200 


XSOHOTs 


BIT7 


;TAPE IN MOTION 


999 


000100 


XSOONL- 


BIT6 


; TRANSPORT ON LINE 


1000 


000040 


XSOIEs 


6IT5 


; INTERRUPT ENABLE 


1001 


000020 


XSOVCK: 


BIT4 


; VOLUME CHECK BIT 


1002 


000010 


XSOPEDs 


BIT3 


; PHASE ENCODED DRIVE 


1003 


000004 


XSOULK- 


BIT2 


; WRITE LOCKED 


1004 


000002 


XSOBOTs 


BIT1 


[BEGINNING OF TAPE 


1005 


000001 


XSOEOT- 


BITO 


;END OF TAPE 



;6IT DEFINITIONS FOR EXTENDED STATUS REGISTER 1 
;(XST1) 



TU80 REGISTER AND ?ACKET ww NITIONS 



1012 

1013 

10U 

1015 

1016 

1017 

1018 

1019 

1020 

1021 

1022 

1023 

1024 

1025 

1026 

1027 

1028 

1029 

1030 

1031 

1032 

1033 

1034 

1035 

1036 

1037 

1038 

1039 

1040 

1041 

1042 

1043 

1044 

104S 

1046 

1047 

1048 

1049 

1050 

1051 

1052 

1053 

1054 

1055 

1056 

1057 

1058 

1059 

1060 

1061 

1062 

1063 

1064 

1065 

1066 

1067 

1068 



100000 
040000 
020000 
017375 
000400 
000002 



100000 
040000 
035400 
002000 
000200 
000100 
000077 
000007 



177400 
000200 
000100 
000040 
000020 
000010 
000006 
000001 



100000 
040000 
020000 
017400 
000377 



000006 
000006 



X1.DLT = Bins ;DATA LATE 

XI. SPARES SITU ;NOT USED 

XI. COR s BIT13 .-CORRECTABLE DATA ERROR 

X1.HBZ s BIT12«BM1UBIT10«BIT9«BIT7«BIT6«BITS«B1T4«BIT3«BIT2«B1TO .ALWAYS 0 

X1.RBP ' BITS ;READ BUS PARITY ERROR 

X1.UNC s BIT1 .-UNCORRECTABLE DATA OR HARD ERROR 

♦ 

BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 2 
(XST2> 

X2.0Pn 3 BIT1S .-OPERATION IN PROGRESS (TAPE MOVING) 

xa.RCE - BITU :RAM CHECKSUM ERROR 

X2. SPARES BIT13«BIT124BIT1UBIT9^BIT8 ;NOT USED BY TU80 (ALUAYS'O) 

X2.UCF - BIT10 iURITE CLOCK FAILURE <F1F0 NOT EMPTIED BY TRANSPORT) 

X2.EXTF s BIT7 :IF WRITE CHAR CMD THEN » EXTENDED FEATURES ENABLED 

X2.BUFE ' BIT6 ;IF WRITE CHAR CMD THEN « BUFFERING ENABLED 

X2.REV ' 000077 ;IF WRITE CHAR CMD THEN s MICROCODE REVISION LEVEL 

X2.UNIT s BIT2>BIT14BIT0 ;IF GET STATUS THEN - CURRENTLY SELECTED UNIT NO. 

♦ 

BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 3 
(XST3) 



X3.M0E = 177400 
X3. SPARES BIT7 

X3.0PI = BIT6 

X3.REV s BIT5 

X3.TRF s BIT4 

X3.0CK s B1T3 

X3.MB2 sBIT2*BIT1 

X3.Rie - BITO 



.•MICRO-DIAGNOSTIC ERROR CODE 
;NOT USED BY TU80 
.•OPERATION INCOMPLETE 
: REVERSE 

; TRANSPORT RESPONSE FAILURE 
;DENSITy CHECK 
;NOT USED ALWAYS 0 
.'REVERSE INTO BOT 



BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 4 
(XST4) 

X4.HSP s BIT15 .-HIGH SPEED 

X4.RCE s BITU .'RETRY COUNT EXCEEDED 

X4.TSH « BIT13 ; TRANSPORT SPECIAL MCDE 

X4.nBZ ' BIT12*BIT1UBIT10«BIT9«BIT8 ;NOT USED ALWAYS 0 

X4.WRC « 000377 fWRITE RETRY COUNT FIELD 



TSSR TERMINATION COOES (BIT 0-2) 



TSREJs 3*2 
UNRECs 6 



DEVICE REGISTER OFFSETS 



.-COMMAND REJECTED 
.•UNRECOVERABLE ERROR 



CZTUUAO TU80 FRONT END PRT A HACRO H1200 
TU80 REGISTER AND PACKET DEFINITIONS 
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S£Q 2b 



1069 

1070 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

1078 

1079 

1080 

1081 

1082 

1083 

1084 

1085 

1086 

1087 

1088 

1039 

1090 

1091 

1092 

1093 

1094 

1095 

1096 

1097 

1098 

1099 

1100 

1101 

1102 

1103 

1104 

1105 

1106 

1107 

1108 

1109 

1110 

1111 

1112 

1113 

1114 

1115 

1116 

1117 

1118 

1119 

1120 

1121 

1122 

1123 

1124 

1125 



177776 
177776 
177776 
177776 
177777 
177777 
000000 
000001 



000003 



000017 
000013 
000012 
000011 
000010 
000006 
000005 
000004 
000001 



100000 
040000 
020000 
010000 
007400 
000200 
000140 
000037 



OOOGOO 
000400 
001000 
002000 
002400 



000167 
000200 
000020 
000027 
000104 



TSBAss -2 
TSBALss -2 
TSDBs* -2 
TSDBL*= -2 
TSBAH<« -1 
TSDBHss -1 
TSSRss 0 
TSSRH«s 1 



: TSDB ADDRESS BIT DEFINITIONS 
A1716 ' BITUBITO 



;♦ 



COWAND DEFINITIONS 



P.6ETSTAT 

P.INIT 

P. CONTROL 

P.FORMAT 

P.POSITION 

P.URTSUB 

P.URJTE 

P.URTCHAft 

P.READ 



= 17 
s 13 
* 12 
s 11 
a 10 
= 6 
= 5 
s 4 
a 1 



:TSDB/TSBA REGISTER 
;TSDB/TSBA REGISTER 

;TSDB/TSBA REGISTER HIGH 6TTE 

;TSSR REGISTER 

;TSSR REGISTCR HIGH BYTE 



;ADDRfSS BITS 17; 16 ARE IN 1:0 



."GET STATUS 

:INITIALIZE 

;CONTR0t. COHHANDS 

;F0RP1AT 

; POSIT ION 

: SUBSYSTEM WRITE 

;URITE 

:UHITE CHARACTERISTICS 
.•READ 



;♦ 



COWAND PACKET HEADER WORD BIT DEFINITIONS 



P.ACK » B1T15 

P.CVC « BIT14 

P.OPP s BIT13 

P.SWB « 8IT12 

P.NODE s BIT11!B1T10!BIT9!BIT8 

P.IE = 8IT7 

P.FHT« BIT61BIT5 

P. cm « 37 



;BUFFER AVAIL FOR CONTROLLER 
; CLEAR VOLUME CHECK 
;REVERSF SEQUENCE OF DATA BITS 
;SWAP BYTES IN KNORY 
.•EXTENDED COWANO fWDE FIELD 
.•INTERRUPT ENABLE 
;PACKET HEADER TYPE (ALWAYS=0) 
.-MAJOR COMMAND FIELD 



: CONTROL COMMAND MODE CODES 



PC. RELEASE 
PC. REWIND 
PC.NOOP 
PC.IEREW 
PC. ERASE 



0«2^6. 
1-256. 
2*256. 
4*256. 
5*256. 



: CONTROLLER RAN DEFINITIONS 

RMCHBcG - 167 
RMCHEND = 200 
RMPXTBEGs 20 
RMPKTEND* 27 

RMMSGBEG* 104 



.•RELEASE BUFFER 

.-REWIND 

'NO'DP 

; REWIND IMMEDIATE INTERRUPT 
.SECURITY ERASE 



.'CHARACTERISTICS 10 DATA BEGIN RAM ADDRESS 
.-CHARACTERISTICS 10 DATA END ItAM ADDRESS 
; COMMAND PACKET BEGIN RAM ADDRESS 
.•COMMAND PACKET END RAM ADDRESS 
.♦MESSACt BUFFFR BFGIN RAM ADDRESS 
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SEO 29 



1126 

1127 

1126 

1129 

1130 

1131 

1132 

1133 

1134 

1135 

1136 

1137 

1138 

11 59 

1140 

1U1 

1142 

1143 

1144 

1145 

1146 

1147 

1U8 

1149 

1150 

1151 

1152 

1153 

1154 

1155 

^^U 

1157 

1158 

1159 

1160 

1161 

1162 

1163 

1164 

1165 

1166 

1167 

1168 

1169 

1170 

1171 

1172 

1173 

1174 

1175 

1176 

1177 

1178 

1179 

1180 

1181 

1182 



000117 



000006 
000010 
000012 
000014 
000016 



000002 
000004 
000006 

000010 



000000 
000001 
000002 
000004 



RWSGEND* 117 
♦ 



;NESSA6E BUFFER END RAH ADDRESS 
REGISTER DEFINITIONS IN THE HESSAGE BUFFER 



KSTO's 6 

XST1«* 8. 

)(ST2» 10. 

XST3«« 12. 

XST4«» 14. 



EXTENDED STATUS REGISTER 0 
EXTENDED STATUS REGISTER 1 
EXTENDED STATUS REGISTER 2 
EXTENDED STATUS REGISTER 3 
EXTENDED STATUS REGISTER 4 



(WORD 4) 
(yORD 5) 
(WORD 6) 
(yORD 7) 
(WORD 8) 



OFFSETS TO WORD LOCATIONS IN PACKET DEFINITIONS 



PKLOW 

PKHI 

PKBCNT 



« 2 
s 4 
« 6 



EXBCNTslO 



;LOW ORDER CHARACTERISTIC DATA POINTER 
.•HIGH ORDER CHARACTERISTIC DATA POINTER 
.'NUMBER OF BYTES IN DATA PACKET 

.•NUMBER Of BYTES IN EXTENDED DATA PACKET 



DATA PACKET OFFSETS FOR tfRIYE SUBSYTEM COMMAND 



BSELO = 0 
BSEL1 » 1 
SEL2 > 2 
SELOATA « 4 



.•BYTE 0 
.-BYTE 1 
:W0RD 2 
.-WORD 3 



BSELO SELECT CODES FOR WRITE SUBSYSTEM COMMAND 



000000 


PW.NOP 


* 0 


.•NO-OP 


000001 


PW. RDRAM 


* 1 


;READ RAM 


000002 


PW.WTRAM 


« 2 


;WRITE RAM 


000003 


PW.RFIFO 


* 3 


.•READ FIFO 


000004 


PW.WFlfO 


« 4 


.•WRITE FIFO 


000005 


PW.ROSTAT 


« 5 


:READ STATUS 


000006 


HI.WCTL 


X 6 


: WRITE TAPE CONTROL 


000007 


PW.WFKT 


« 7 


.•WRITE TAPE FORMAT 


000010 


PW.UMISC 


» 10 


:WRITE MISCELLANEOUS 


000011 




« 11 


.•WRITE NPR CONTROl 


000020 


PW.D22 


« 20 


.•DO MICROTEST 22 


000021 


PW.011 


« 21 


:00 MICROTEST 11 


000022 


PW.D13 


* 22 


.•DO MICROTEST 13 


000023 


PW.N01311 


« 23 


.•DISABLE MICROTEST 11 AND 13 


000024 


PW.RDEXT 


« 24 


;READ EXT. TAPE STATUS (NOT SUPPORTED BY ALL TRANSPO 




.BSELI COOES 


FOR WRITE TAPE CONTROL 




000200 


WC.IFAO 


- WT7 


iff AD - FORMATTER ADDRESS 
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SEQ 30 



1163 

1184 

1185 

1186 

1187 

1188 

1189 

1190 

1191 

1192 

1195 

1194 

1195 

1196 

1197 

1198 

1199 

1200 

1201 

1202 

1203 

1204 

1205 

1206 

1207 

1208 

1209 

1210 

1211 

1212 

1213 

1214 

1215 

1216 

1217 

1218 

1219 

1220 

1221 

1222 

1223 

1224 

1225 

1226 

1227 

1228 

1229 

1230 

1231 

1232 

1233 

1234 

1235 

1236 

1237 

1238 

12J9 



000100 
000040 
000020 
000010 
00000^ 
000002 
000001 



000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 



000200 
000020 
000010 
000006 
000001 



000000 
000002 
000004 
000006 



000200 
000100 
000040 
000020 



000200 
000100 
000040 
000020 
000010 
000004 
000003 
100000 
040000 
020000 



WC.IOTAO 

WC.I1TAD 

UC.ISRESV 

UCIREW 

UC.IRUU 

WC.IPEN 

UC.I60 



eiT6 

BITS 
BIT4 
UIT3 
BiT2 
BIT1 
BITO 



;BSEL1 CODES FOR VRITE FORMAT 



WF.IHISP 

UF.IURT 

UF.IREV 

UF.iyFM 

yF.IEDI? 

UF. I ERASE 

WF.I3RESV 

UF.I4RESV 



BIT7 
BIT6 
BITS 
BIT4 
BIT3 
BIT2 
BIT1 
BITO 



IT ADO 
ITAD1 
IRESVS 
IREU 

I Ryu 

IFEN 
60 



IHISP 

IWRT 

IREV 

lUFM 

lEDIT 

I ERASE 

IRESV5 

IAESV4 



TRANSPORT ADDRESS BIT 0 
TRANSPORT ADDRESS BIT 1 
RESERVED #5 
REWIND 

REWIND AND UNLOAD 
FORMATTER ENABLE 



HIGH SPEED 

WRITE 

REVERSE 

WRITE FILE NARK 

EDIT 

ERASE 

RESERVED #3 
RESERVED #4 



;BSEL1 CODES FOR WRITE MISCELLANEOUS SUBCOMMAND 



MS. EXT 
MS.RSFIFO 
MS.RSTAPE 
MS.ATTN 
MS.RSO 

; MS.ATTN SUBCODES 



BIT7 
BIT4 
BIT3 

BIT2!BIT1 
BITO 



MSA. NOP « 0*2 
MSA. VOL « 1*2 
NSA.NRAM* 2*2 
MSA.FRAN* 3*2 



.INVERT SENSE OF EXTENDED FEATURES SWITCH 
:RESET FIFO AND INPUT PARITY ERRORR 
.-RfcSET TAPE STATUS IN 2 FLIP-FLOPS 
.•ATTENTION (RIGGER FIELD 
.•RESET TIMER A.B THEN DELAY TIMES IN SEL2 



NO-OP (NOTHING TRIGGERED) 

SIMULATE ON-LINE/OFF-LINE TRANSISTION 

FORCE NON-FATAL RAM ERROR (FORCES ERRCOOE 54) 

FORCE FATAL RAH ERROR (CAUSES SCE TO SET) 



WRITE SUBSYSTEM WRITE NFR BSELI BIT DEFINITIONS 



NP.IR * BIT7 

NP.OUT « BIT6 

NP.LOOP « BITS 

NP.WRP « BIT4 

: READ STATUS MESSAGE BUFFER BIT DEFINITIONS 



.•INTERRUPT REQUEST (0-1 TRANSITION) 
:TAPE DATA DIRECTION OUT (O^^ IN) 
: ENABLE TRANSPORT LOOPBACK 
:WRITE CORRECT PARITY (SET^O TO WRITE WRONG) 



S2.DjM 

S2.aw 

S2.0UTRDY 

S?.IIilDV 

S2.ATIMR 

S2.8TIMR 

S2.UNDEf 

SI .PARIN 

S1.I2RESV 

SMIBESV 



BIT7 
BIT6 
B1T5 
B1T4 
B1T3 
31T2 

BITUBITO 

Bm5 

BIT14 

-81112 



WORD «9 BYTE 2 DATA IN HISS 
ILW H 
OUT RDY H 
IN RDY H 
TIHER A FLAG H 
TIHER B FLAG H 



(UNDEFINED) 
WORD #6 BYTE 



1 PAR IK H 
IRESV2 
IRESVl 



f 3 
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12A0 


010000 


S1.IECT 




s BIT12 


1241 


004000 


SI. 11 DENT 


« BIT11 


1242 


002000 


SI.ICEh 




« BIT10 


1243 


001000 


SI.IFHK 




« BIT9 


1244 


000400 


SI. I HER 




* BlT8 


124S 


000200 


SO. I SPEED 


« BIT7 


1246 


000100 


SO.IRDV 




* BIT6 


1247 


000040 


SO.IONL 




« BIT5 


1248 


000020 


SO. I LDP 




* BIT4 


1249 


000010 


SO.IDBY 




« BIT3 


1250 


000004 


SO.IRUD 




s BIT2 


1251 


000002 


S0.IF8V 




* BIT1 


1252 


000001 


SO.IFPT 




« BITO 


1253 




• 
• 


SPECIAL KEVBORD STUFF 1 


1254 










1255 


177560 




TKS 


>1 77560 


1256 


177562 




TKB 


«1 77562 


1257 


177564 




TPS 


si 77564 


1258 


177566 




TP8 


•177566 


1259 


007776 




HINEN 


C007776 


1260 




• 


CONTROLLER DEFINITIONS 


1261 


174400 




CSR 


«1 74400 


1262 


174402 




BAR 


si 74402 


1263 


174404 




DAR 


=174404 


1264 


174406 




HPR 


=174406 


1265 




• 
• 






1266 




• 
• 


CONTROLLER COHNANDS 


1267 




• 
• 






1268 


000004 




DL6ETS 


*4 


1269 


000006 




SEEK 


*6 


1270 


000010 




DLRDND 


«10 


1271 


000014 




READ 


«14 


1272 


000016 




OLRDNM 


s16 


1273 




• 
• 






1274 


000001 




READY 


«1 


127S 


000013 




DLSR 


■13 


1276 


177730 




OLERR 


•177730 


1277 


000006 




DLUN 


«6 


1278 


000177 




OLCYL 


•000177 


1279 


100200 




DLDNER 


«1 00200 


1280 




• 
• 






1281 


177560 




TTICSR 


« 177560 


1282 


177562 




TTIBFR 


« 177562 


1283 


177564 




TTOCSR 


177564 


1284 


177566 




TTOBFR 


177566 


1285 











lEOT L 

: IIDENT H 

; ICER H 

IFNK H 

I HER H 

;UORO «8 BYTE 0 ISPEED H 
IRDV L 

; lONL L 

ILDP L 

; IDBY L 

IRWD L 
IFBY L 

; IfPT L 

PROGRAM 

.•KEYBOARD STATUS REGISTER 
.•KEYBOARD DATA REGISTER 
.•COMSOLE PRINTER STATUS REGISTER 
.•CONSOLE PRINTER DATA REGISTER 
.-HIGH MEMORY MASK VALUE 

.'STATUS AND CONTROL REGISTER 
:DL ADDRESS REGISTER 
.•PLATTER ADDRESS 
.•MULTIPURPOSE REGISTER 



;GET STATUS COMMAND 
.•SEEK TRACK AND HEAD SELECT 
.•READ SECTOR HEADER 
•READ COMMAND 

;READ SECTOR NO HEADER CHECK 

.•DRIVE READY BIT IN STATUS REG. 

; STATUS AND RESET 

.'MASK FOR COVER OPEN 

.•HEADS UNLOADED 

.•MASK FOR CYLINDER ADDRESS 

.•DONE SET OR ERROR SE^ BITS 

; KEYBOARD INPUT STATUS 
; KEYBOARD DATA REGISTER 
.•CONSOLE PRINTER STATUS REGISTER 
.•CONSOLE PRINTER DATA REGISTER 



6 S 



CZTUVAO TU80 'RONT END PRT A 
SPECIAL MACROS AND OPDEFS. 

1287 

12A8 

1269 

1290 

1291 

1292 

1295 

1294 

129$ 

1296 

1297 

1298 

1299 

1300 

1301 

1302 

1303 

1304 

130S 

1306 

1307 

1308 

1309 

1310 

1311 

1312 

1313 

13U 

131$ 

1316 

1317 

1318 

1319 

1320 

1321 

1322 

1323 

1324 

132$ 

1326 

1327 

1328 

1329 

1330 

1331 

1332 

1333 

1334 

133$ 

1336 

1537 

1338 

1339 

1340 

1541 

1542 

1543 
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SEO 32 



.SBTTL SPECIAL MACROS AND OPDEFS. 



.SAVE GENERAL REGS i TO $ 



.MACRO SAVRE6 
JSR R$.REGSAV 
.ENDM 



; MACRO TO FORCE AN ERROR 

'.MACRO FORCERROR TAG.NOTSSR 
.NLIST 

.IIF NDF LJSTALL, .NLIST 
.LIST 

.IF B NOTSSR 

MOV TSSR(R5)«R1 

.ENDC 

MOV FORCER, FORCER 
BNE TAG 

.NLIST 

.IIF NDF LISTALL, .LIST 

.LIST 

.ENDM 



:READ TSSR 

;IS FORCER SET? (LEAVE C BIT ALONE) 
;6R IF YES 



:IS FORCER NEGATIVE? 
:BR IF YES 



: macro to force an exit to avoid section iterations 

uill exit to a label if forcer is negative 
: so to force errors and exit on 1 error set 
; forcer to 177777 

; to force errors and iterations set forcer to 1. 
!macro forcexit tag 

.NLIST 

.IIF NDF LISTALL. .NLIST 
.LIST 

MOV FORCER, FORCER 
BMI TAG 

.NLIST 

.IJF NDF LISTALL. .LIST 
.LIST 
.ENDM 

: MACRO TO INCREMENT ERROR COUNTS 

!macro NEXT.ERRNO 
.NLIST 

;;:.IIF NDF LISTALL, .NLIST 

ERRNO'ERRNO^I 

;;;.IIF NDF LISTALL, .LIST 
.LIST 
.ENDM 



H 3 

1}^^ : MACRO TO PERFORM XOR 
1146 

lY*! .MACRO XOR A,B 

JJJJ BIC B.(SP) 

311? 8" 

JJJi BIS (SP)»,B 

1353 



THE FOLLOWING LOCATIONS HAV BE PATCHED BY THE USER 
TO OBTAIN THE RESULTS DESCRIBED FOR EACH. 



1356 
1557 
1358 
1359 
1360 
1561 

181 '^^^^^ ^^^^ FORCER:: 0 ; FORCE TYPE ALL HARD ERRORS (THE ONES CALLED 

lis ' ' BY THE MACRO "If ERROR"). AN ERROR NEED NOT • 

]^ : - EXIST, JUST ASSUME AND TYPE THE MESSAGE. 

1366 
1367 



1 s 



CZTUUAO TU80 FRONT kNO PRT A 
GLOBAL DATA SECTION 

1369 
1370 
1371 
1372 
1573 
137A 
1375 
1376 
137/ 
1378 
1379 

1380 002 U6 000000 

1381 002150 000000 

1382 002152 000000 

1383 002154 000000 

1384 002156 000224 

1385 002160 000200 

1386 002162 000000 

1387 002164 000000 

1388 002166 000000 

1389 002170 000000 

1390 002172 000000 

1391 002174 000000 

1392 002176 000000 

1393 002200 000000 

1394 002202 000000 

1395 002204 000000 

1396 002206 

1397 002246 000000 

1398 002250 000000 

1399 002252 000000 

1400 002254 000000 

1401 002256 000000 

1402 002260 000000 

1403 002262 000000 

1404 002264 000000 

1405 002266 

1406 002432 

1407 002576 

1408 002716 000000 
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.S8TTL GLOBAL DATA SECTION 



;THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 
:IN WRE THAN ONE TbST. 



.THE FOLLOWING DATA ARE SET FOR EACH UNIT AT INIT TINE. 
:SINGLE UNIT DEFAULTS (LISTED) ARE IN THE DEFAULT P-TABLE. 



EPRTSU: : 


yORD 


0 


PRINT $UtTCH 


UNITN: : 


.yORD 


0 


•UNIT f UMDFB TF$T 


QVP : : 


yoRD 


0 


WlVn vCf^irf rL^U. 


CSRADDR:: 


.WORD 


0 




IVEC:.- 


.UORD 


224 


>INTFMUPT VFFTM 


IPRI : : 


.WORD 


PRI04 


■INTERRUPT PftlMITV 


TSTCNT:: 


.WORD 


0 


■NUMBER OF TESTS RUN IN THIS PASS 


LOOPCNT : : 


.WORD 


0 


:RENAIN1NC ITERATION COUNT FOR T5ST 


DEVCNT: : 


.WORD 


0 


iNUNBER OF DEVICE UNDER TEST 


FATFLG:: 


.WORD 


0 


rSET IF FATAL ERNOR IS DETECTED IN TFST 


INTRECV:: 


.WORD 


0 


(SET IF TAPE INTERRUPT WAS RECEIVED 


BENBSU:: 


.WORD 


0 


; BUFFER ENABLE SWITCH SW 0«0FF;1s0N 


EXPD:. 


.WORD 


0 


; EXPECTED RAfl DATA FOR PRAMPKT ROUTINE 


RECV:: 


.WORD 


0 


(RECEIVED RAM DATA FON PRAMPKT HOUTINE 


ERRHI : : 


.WORD 


0 


;HIGH ADDRESS MEMORY ERROR 


ERRLO:: 


.WORD 


0 


LOW ADDRESS MEMORY ERROR 


RAWATA:: 


.BLKW 


16. 


;DATA READ FROM RAn PACKET OR MESSAGE BUF Af^EA 


RAHSIZ:: 


.WORD 


0 


RAM DATA SIZE FOR PRAMPKT ROUTINE 


;tCVHIADD:: 


.WORD 


0 


■RECEIVED BUFFER HIGH ADDRESS 


RCVLOADD:: 


.WORD 


0 


RECEIVED BUFFER LOW ADDRESS 


COUNT:: 


.WORD 


0 


TEST COUNT PATTERN 


DATA:: 


.WORD 


0 


TEST DATA 


TSTFLAG:: 


.WORD 


0 


TEST FLAG WORD 


TSTPTR:: 


.WORD 


0 


■TSTBLK POINTER 


PfWNO:: 


.WORD 


0 


PRINT ROUTINE TEMP 


EXPNS6:: 


.BLKB 


100. 


EXPECTED MESSAGE BUFFER DATA 


RECNSG:: 


.BLKB 


100. 


RECEIVED MESSAGE BUFFER DATA 


TWSFR:: 


.BLKB 


80. 


TEMPORARY STORAGE FOR PRINT 




.WORD 


0 


STORES ADDRESS OF f^sSAGc SUFFER FOR ERR PRT 



CZTUUAO TU80 FRONT END ?HJ h 

TSTBLK - TEST DATA TABLE 

U10 
U11 
U12 
U13 
UU 
U15 
1416 
1417 
U18 
1419 
1420 
1421 
1422 
1423 
1424 
1425 

1426 002720 

1427 002720 000000 

1428 002722 177777 

1429 002724 000001 

1430 002726 000002 

1431 002730 000004 

1432 002732 000010 

1433 002734 000020 

1434 002736 000040 

1435 002740 000100 

1436 002742 000200 

1437 002744 000400 

1438 002746 001000 

1439 002750 002000 

1440 002752 004000 

1441 002754 010000 

1442 002756 020000 
U43 002760 040000 

1444 002762 100000 

1445 002764 177776 

1446 002766 177775 

1447 002770 177773 

1448 002772 177767 
U49 002774 177757 

1450 002776 177737 

1451 003000 177677 

1452 003002 177577 

1453 003004 177377 

1454 003006 176777 

1455 003010 175777 

1456 003012 173777 

1457 003014 167777 

1458 003016 157777 

1459 003020 137777 

1460 003022 077777 

1461 003024 125252 

1462 003026 052525 

1463 003030 



J 3 
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.S8TTL TSTBLK - TEST DATA TABLE 

THIS TABLE CONTAIN^ TEST DATA USED IN SEVERAL TESTS 

IN SEQUENCE THE DATA IS: 

ALL ZEROS 
ALL ONES 
UALKINC ONES 
WALKING ZEROS 
ALTERNATING ONES AND ZEROS 



SEO iS 



TSTBLK:: 

.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
TBLEND««. 



0 

177777 

BITO 

BIT1 

BIT2 

BIT3 

B1T4 

BITS 

B1T6 

BIT7 

BIT8 

B1T9 

B1T10 

BIT11 

BIT12 

B1T13 

BITU 

BIT15 

*CB1T0 

•CBITl 

•CBIT2 

*CBIT3 

'CBIT4 

*CBIT5 

*CBIT6 

'CBIT7 

'CBIT8 

'CdIT9 

•CBITl 0 

'CBITl 1 

nBIT12 

•CBIT13 

•CB1T14 

*CBIT15 

125252 

052525 



.ALL ZEROS 
;ALL ONES 

;DATA FOR WALKING ONES 



.•DATA FOR WALKING ZEROS 



.•ALTERNATING ONES, ZEROS 

:ALTERNATING ONES. ZERO OPPOSITE FROM ABOVE 



CZTUUAO TUM fRONT END PUT A 
6LQ8AL ENVIMMMCNT STORAGE 



U6S 
1466 
U67 
1468 

1469 003030 

1470 003040 
1471 

1472 
1473 

1474 003060 
1475 

1476 003062 
1477 

1478 003064 

1479 003066 

1480 003070 

1481 003072 

1482 003074 

1483 003076 

1484 003100 
1485 

1486 

1487 003102 

1488 003104 

1489 003106 

1490 003110 
U91 003112 

1492 003114 

1493 003116 

1494 003116 

1495 003120 

1496 003122 

1497 003124 

1498 003126 

1499 003130 
1500 

1501 
1502 
1503 
1504 
1505 
1506 
1507 
1508 

1509 003130 

1510 003330 
1511 

1512 003332 
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.S8TTL GLOBAL ENVIRONNENT STORAGE 
STORAGE FOR DEVICE REGISTERS 



SEQ 56 



000000 100000 
000000 000000 



000000 

000000 

000000 
000000 
000000 
000000 
000000 
000000 
000000 



000000 
002000 
000000 
000000 
000000 
000000 

000000 
000000 
000000 
000000 
177777 



000000 
000000 



DUMHY: 

DUFLGsi 

NODEV:: 

TEMPI : : 

TEIV2:: 

XXCOMM:: 

FREE:: 

FRESIZ:: 

FREEHI: 

KTFLG:: 



KTENA8LE:: 

PST32U:: 

SIFLA6:: 

BADDAT:: 

6DDAT:: 

LOOPFL:: 

CTAB:: 

CTABM:: 



0.100000«0,U 
0.0.0.0,0.0,0,0 



CTABE:: 



,W0RD 

.yORD 

.WORD 
.WORD 
.WORD 
.WORD 
.yORD 
.WORD 
.WORD 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 

.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



0 

0 

0 
0 

c 

0 
0 
0 
0 



2000 

0 

0 

0 

0 

0 
0 
0 
0 

-1 



;DUmv DEVICE REGISTERS... 
:...FOR MULTI-UNIT CHECKOUT. 



.•"DROPPED UNIT" FLAG. 
.•INHIBITS CODE IN "CLEAN-UP". 
;FLAG TO SAV NO DEVICE. 

;SOME TEMP LOCATIONS. 

;XXDP* COMM BLOCK POINTER. 

;1ST FREE MEMORY ADDRESS... 

:...AND SIZE (IN WORDS). 

.LAST WORD IN FREE SPACE 

;KT11. MEM AVAIL FLAG - 

;- .WORD 0 « <24K OR NO KT - 

:- NI * >24K AND KT. 

;SET BY TEST ROUTINES TO FLAG >28K UNDER TEST 
:32W BLOCK ADDRESS FOR 32K START 

• 

•ACTUAL DATA 
.'EXPECTED DATA 

.CONFIGURATION TABLES. 
; CONFIG WORK. 



:END OF MEM TABLE. 
ERROR STATISTICS TABLE (1 WORD PER UNIT). 64 UNITS MAX: 



000000 
000000 



0 

100000 * 

10XXXX = 

160000 s 

160001 = 

uxxxx > 



ER1ABL: .BLKW 
ERTABE: .WORD 

SKIPT: .WORD 0 



UNIT NOT TESTED 

UNIT ONLINE. NO ERRORS 

UNIT ONLINE. ENCOUNTERED XXXX ERRORS 

UNIT DROPPED. NON-EXISTENT DEVICE REGISTER 

UNIT DROPPED. NOT IDLE AT START 

UNIT DROPPED. ENCOUNTERED XXXX ERRORS 



64. 

0 



jUSKiP SUBTEST 0=N0 SKIP OF SUBTkST 



r 



CZTiMAO TU80 FRONT END PRT A 
GLOBAL TEXT MESSAGES 



15H 
1515 
1516 
1517 
1518 
1519 
1520 
1521 
1522 
1523 
152<. 
1525 
1526 

1527 0033M 
003334 
003334 
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124 



1528 
1529 
1530 
15S1 
1532 

1533 003342 
003342 
003342 

1534 
1535 
1536 
1537 
1538 

1539 003400 

1540 003420 

1541 003440 

1542 003443 

1543 003447 

1544 003453 

1545 003457 

1546 003463 

1547 003467 

1548 003474 
15f9 003S01 

1550 003505 

1551 003511 

1552 003516 

1553 003523 

1554 003530 

1555 003S3S 

1556 003S42 
1557 

1558 003550 

1559 003603 

1560 003636 

1561 003675 

1562 003716 

1563 003756 

1564 004015 



103 



.SBTTL GLOBAL TEXT MESSAGES 



THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENT:. 
MESSAGES. AND ASCII INFORMATION THAT ARE USED IN 
MORE THAN ONE TESi. 



1* 



125 



070 



.-NAMES OF DEVICES SUPPORTED 



DEVTYP <TU80> 
LSDVTYP: : 

.ASCI2 /TU80/ 
.EVEN 



;TEST DESCRIPTION 



132 



124 



LSDESC:: 



DESCRIPT <CZTUUAO TU80 FRONT END PRT A> 

.ASCIZ /C2TUWA0 TU80 FRONT END PRT A/ 
.EVEN 



;BIT TO ASCII CONVERSION FOR TSSR REGISTER 



440 


003443 


003447 


TSSRBIT:: 


501 


003505 


003511 






123 


103 


000 


IS: 


.ASCIZ 


102 


111 


10S 


2S: 


.ASCIZ 


123 


103 


105 


3S: 


.ASCIZ 


122 


115 


122 


41: 


.ASCIZ 


116 


130 


115 


5S: 


.ASCIZ 


116 


102 


101 


61: 


.ASCIZ 


102 


111 


124 


7f: 


.ASCIZ 


102 


111 


124 


8$: 


.ASCIZ 


123 


123 


122 


9$: 


.ASCIZ 


117 


106 


114 


10S 


.ASCIZ 


102 


111 


124 


IIS 


.ASCIZ 


102 


111 


124 


12S 


.ASCIZ 


102 


111 


124 


13S 


.ASCIZ 


102 


111 


124 


US 


.ASCIZ 


102 


111 


124 


1SS 


.ASCIZ 


102 


111 


124 


16S 


.ASCIZ 










.EVEN 


124 


123 


123 


SFIERR: .ASCIZ 


124 


123 


123 


SFHERR: .ASCIZ 


040 


040 


116 


NXR: .ASCIZ 


045 


101 


040 


NXRX: .ASCIZ 


045 


101 


040 


TSSX: .ASCII 


045 


101 


040 




.ASCIZ 


045 


116 


045 


FUSl: .ASCII 



.WORD 
.WORD 

•sc 

*BIE' 
•SCE* 
•RMR* 
•NXM' 
*NBA* 
•BIT9 
'BIT8 
•SSR* 
•OFL* 
•BIT5 
•8114 
•BIT3 
•BIT2 
•BIT1 
*BITO 



1S.2S.SS.4$.SS.6$.7$.&$ 
9$.10S.11S.12S.13S.14SJ5S.16S 



•TSSR ERROR AFTER SOFT INIT* 

•TSSR ERROR AFTER BUS RESET' 

/ NON-EXISTANT DEVICE REGISTER/ 

/SA ADDRESS: 106/ 

/lA TSBA.TSSR EXP*D: 106SA,X06SN/ 

/lA TSBA.TSSR REC*D: S06XA.S06/ 

/»NIA/ 



CZTUUAO TU80 FRONT END PRT A MACRO H1200 29-flAR-8S 
GLOBAL TEXT HESSA6ES 



1565 004021 


040 

w^ w 


040 

W~ w 


125 


USI : 


.ASCIZ 


1566 OOA050 


040 


040 


111 


NSI : 


.ASCIZ 


1567 00A113 

1568 004117 


045 


116 


045 


FNOINTR 




040 


040 


116 


NOINTR: 


.ASCIZ 


1569 004154 


040 


040 


111 


I FAULT: 


.ASCIZ 


1570 004176 


045 


101 


040 


INTX: 


.ASCIZ 


1571 004233 


040 


040 


042 


NOINlT: 


.ASCIZ 


1572 004305 


040 


040 


042 


NSINIT: 


.ASCIZ 


1573 004355 


040 


040 


042 


BRINIT: 


.ASCIZ 


1574 












1575 004425 


000 






NUL: 


.ASCIZ 


1576 004426 


045 


116 


000 


NULCR: 


.ASCIZ 


1577 004431 


045 


101 


040 


EXP60T: 


.ASCIZ 


1578 004465 


045 


116 


045 


EXP6T2: 


.ASCIZ 


1579 004541 


045 


101 


040 


0'JAD12: 


.ASCIZ 


1580 004643 


122 


101 


115 


PKTRAH: 


• 
• 


1581 004711 


040 


040 


103 


SCNE: 


.ASCIZ 


1582 004754 


127 


122 


111 


WRTNS6: 


.ASCIZ 


1583 005011 


124 


123 


123 


WRTERR: 


.ASCIZ 


1584 005104 


124 


123 


123 


RDERR: 


.ASCIZ 


1585 










.EVEN 


1586 












1587 












1588 
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SEO 38 



/ UNEXPECTED INTERRUPT/ 

/ INTERRUPT EXPECTED, NOT RECEIVED/ 

.ASCII /XNXA/ 

/ NO INTERRUPT WAS GENERATED/ 

/ INTERRUPT FAULT/ 

/SA CPU PC: S06XA TSBA: 106/ 

/ "BUS-INIT" DIDN'T INITIALIZE CONTROLLER/ 

/ "SOFT-INIT" DIDN'T INITIALIZE THE DPU/ 

/ "BUS-RESET" DIDN'T INITIALIZE THE DPU/ 

// 

/XN/ 

Ilk EXP'D: X06XA, REC'D: X06/ 

/XNXA EXP'D: X06XA. X06XNXA REC'D: XOXA. X06/ 

/XA REG(U) WRITTEN TO: X06XA RE6(R) READ; EXP'D: X06XA, REC'D: X06/ 
.ASCIZ 'RAH Conttntt Do Not Hatch Packet Sent' 
/ CONFIG DOESN'T HATCH HF6. HASTER/ 
'WRITE CHARACTERISTICS Failtd' 

'TSSR Incorrtct Afttr WRITE ConMand, Hore Bits Set Than SSR' 
*TSSR Incorrect After READ CoMiand* Hore Bits Set Than SSR' 



N 3 



CZTUUAO TU80 FRONT END PRT A 
GLOBAL ERROR REPORT SECTION 



1590 
1591 
1592 
1593 
1594 
1595 
1596 
1597 

1598 005176 
005176 

1599 005176 
005176 
005202 
005206 
005212 
0052U 
005216 

1600 005222 

1601 005226 
005226 
005226 

1602 
1603 
160A 
1605 
1606 
1607 

1608 005230 

1609 005232 

1610 005234 

1611 005236 

1612 005242 
005242 
005246 
005252 
005254 
005256 

1613 005262 
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SEO 39 



013746 
012746 
012746 
010600 
104415 
062706 
004737 



104423 



005727 
000000 
001402 
004777 

012746 
012746 
010600 
104415 
062706 
000207 



.SBTTL GLOBAL ERROR REPORT SECTION 



003062 
003675 
000002 



000006 
005230 



177770 

004426 
000001 



000004 



♦ 4 



THE GLOBAL ERRO? REPORT SECTION CONTAINS THE PAINTS AND PRINTX 

CALLS THAT ARE UStO IN MORE THAN ONE TEST. 

ASCII TEXT STRINGS ARE FOUND IN THE GLOBAL TEXT SECTION. 



NXRERR: 



BGNMSG NXRERR 



LI 0002: 



PRINTX 

NOV 

NOV 

MOV 

NOV 

TRAP 

ADD 

JSR 

ENDNSG 



fNXRX.NODEV 

NODEV,*(SP) 

«NXRX,-(SP) 

f2.-(SP) 

SP»RO 

CSPNTX 

#6.SP 

PC, EXTEND 



:NON-EXISTANT DEVICE REGISTER. 
:NODEV - NEXN ADDRESS. 



: PRINT EXTENSION IF REQUIRED. 



TRAP CtNSG 



THIS ROUTINE APPENDS A UNIQUE EXTENSION (IF REQUIRED) 
TO ANY OF THE ABOVE ERROR SIGNATURES. 



EXTEND: TST 
EXTA: 0 



IS: 



BEQ 

JSR 

PRINTX 

NOV 

NOV 

NOV 

TRAP 

ADD 

RTS 



(PC)* 
1$ 

PCdEXTA 

#NULCR 

#NULCR,-(SP) 

#1.-(SP> 

SP,RO 

CSPNTX 

#4,SP 

PC 



; 0 - NO EXTENSION. 

; APPEND EXTENSION TEXT, 
; PRINT A BLANK LINE 



CZTUyAO TUSO FRONT END PRT A 
PRITSSR - PRINT TSSR CONTENTS 
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1616 
1617 
1618 
1619 
1620 
1621 
1622 
1623 
1624 
1625 
1626 
1627 
1628 
1629 
1630 
1631 
1632 
1633 

1634 005264 

1635 005264 

1636 005270 

1637 005272 
005272 
005274 
005300 
005304 
005306 
005310 

1638 005314 

1639 005316 

1640 005322 

1641 005324 
005324 
005330 
005334 
005336 
005340 

1642 005344 

1643 005346 

1644 005352 

1645 005354 

1646 005360 

1647 005364 

1648 005366 

1649 005370 

1650 005372 

1651 005374 

1652 005376 

1653 005400 

1654 005402 

1655 005404 

1656 005412 

1657 005414 

1658 005416 

1659 005420 
005420 
005424 



.SBTTL PRITSSR - PRINT TSSR CONTENTS 

ROUTINE TO DISPLAY THE CONTENTS, AND BIT DEFINITIONS. OF 
THE TSSR REGISTER. THIS ROUTINE IS NORMALLY CALLED ONLY 
BY A MESSAGE PRINTING ROUTINE 

INPUTS: 

R1 CONTENTS OF TSSR 

SUBORDINATE ROUTINES: 

CHKAMB CHECK FOR AMBIGUOUS CONTENTS 



PRITSSR: 









aAVncu 


;SAVE GENERAL RFGISTERS 


A1 M liL 






MAU 

rnJNTD 


R1,R4 :SAyE THE TSSR CONTENTS 
fTSSRF0R,R4 .-PRINT THE CONTENTS OF TSSR 


010446 






MOV 


R4.-(SP) 




01 2 r 46 


AAcm 
005 r 91 




nov 


fTSSRFOR,-(SP) 






AAAAA9 

OOOOOc 




nov 


f2,-(SP> 




010600 






MOV 


SP.RO 










IRAr 


C$PNTB 




OOcrOO 


AAAAAA 
000006 




ADP 


f6,SP 




A« A« AA 

010400 






MAU 

BOV 


R4.R0 


GET TSSR BACK FOR CHKAW 


AA^ 

00473f 


016534 




J»R 


PC. CHKAMB 


ARE CONTENTS AMBIGUOUS ? 


4 AVy 1A 

103410 






BCS 
PnjNTX 


5$ 

fAMBTSSR 


BRANCH IF NOT 

•SHOW CONTENTS ARE AMBIGUOUS 


012746 


AAA4 CI 

006151 




MAU 

MOV 


fAHBTSSR,-(SP) 






AAAAA1 
000001 




MAU 

nOV 


#1.-(SP) 




A1 AAAA 

010600 






MAU 

nov 


SP.RO 




104415 






TRAP 


C$PIITX 




062706 


000004 




ADD 


f4.SP 




010403 




St: 


MOV 


R4.R3 


•CONTENTS OF TSSR 


042703 


001476 




BIC 


fHlADDR!FATERR!TERCLS,R3 ;CLEAR ALL MULTIPLE 


001434 






BEQ 


20$ 


;N0 BITS ARE SET 


012702 


002576 




MOV 


fTMPBFR.R2 


; TEMPORARY ASCII BUFFER 


012701 


003400 




MOV 


fTSSRBIT.RI 


;ASC!I EQUIVALENT OF BITS 


005703 




10$: 


TST 


R3 


;REMA!NING BITS TO CONVERT 


001413 






BEQ 


15$ 


; BRANCH WHEN ALL ARE DONE 


000241 






CLC 




; CLEAR CARRY FOR SHIFT 


006103 






ROL 


R3 


; SHIFT NEXT BIT TO CARRY 


103006 






BCC 


13$ 


;BRANCH IF BIT NOT SET 


011100 






MOV 


(RD.RO 


^POINTER TO BIT DEFINITION 


112022 




11$: 


MOVB 


(R0)*.(R2)* 


;MOVE ASCIZ TO BUFFER 


001376 






BNE 


11$ 


;MOVE ALL BITS 


112762 


000054 


177777 


MOVB 


f',,-1(R2) 


; INSERT A COMMA TO TERMINATE 


005721 


13$: 


TST 


(RD* 


;POINT TO NEXT DESCRIPTION 


000763 






BR 


10$ 


;GET THE REMAINING BITS 


105042 




15$: 


CLRB 


-(R2) 


{TERMINATE THE LINE 






PRINTX 


f TSSDEF .f TNPBFR 


;PRINT THE BIT DEFINITIONS 


012746 


002576 




MOV 


«THP6FR,-(SP) 




012746 


006122 




MOV 


#TSSDEF.-(SP) 





CZTUUAO TU80 FRONT END PR7 A 
PRITSSR - PRINT TSSR CONTENTS 



005430 
00S434 
005436 
005440 

1660 

1661 005444 

1662 005446 

1663 005452 

1664 005456 
005456 
005460 
00S464 
005470 
005472 
005474 

1665 005500 

1666 005502 

1667 005506 

1668 005510 

1669 005512 

1670 005514 

1671 005516 

1672 005522 
005522 
005524 
00SS30 
005534 
005536 
005540 

1673 005544 

1674 005552 

1675 005554 

1676 005560 

1677 005562 
005562 
005564 
005570 
005574 
005576 
005600 

1678 005604 

1679 005610 

1680 005612 

1681 005620 

1682 005624 

1683 00S626 

1684 005634 

1685 005642 
005642 
005646 
005652 
0056S4 
00S6S6 

1686 005662 

1687 00S670 
1688 

1689 005672 



012746 
010600 
104415 
062706 

010403 
042703 
016303 

010346 
012746 
012746 
010600 
104415 
062706 
010403 
042703 
001421 
006203 
006203 
006203 
016303 



000002 
000006 



177761 
006212 



006012 
000002 



000006 
177717 

006552 



NACRO HI 200 29-MAR-83 



NOV 
NOV 
TRAP 
ADD 



208: 



010346 

012746 006053 
012746 000002 
010600 
104415 

062706 000006 
012737 000031 002170 
010403 

042703 176277 
001411 



2SS: 



010346 
012746 
012746 
010600 
104415 
062706 
022704 
001003 
012737 
005737 
001003 
012737 
013737 

012746 
012746 
010600 
104414 
062706 
012737 
000207 



005751 
000002 



000006 
100210 



SOS: 



005672 002146 
002146 31 S: 

005672 002146 
002146 005644 310$: 
32S: 

005672 
000001 



000004 

005672 002146 



NOV 

SIC 

NOV 

PRINTX 

NOV 

NOV 

NOV 

NOV 

TRAP 

ADD 

NOV 

BIC 

BEQ 

ASR 

ASR 

ASR 

NOV 

PRINTX 

NOV 

NOV 

NOV 

NOV 

TRAP 

ADD 

NOV 

NOV 

BIC 

BEQ 

PRINTX 

NOV 

NOV 

NOV 

NOV 

TRAP 

ADD 

CNP 

BNE 

NOV 

TST 

BNE 

NOV 

NOV 

PRINTB 

NOV 

NOV 

NOV 

TRAP 

ADD 

NOV 

RTS 



EPRT2; 



C 4 
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SEQ 41 



#2.-(SP) 
SP.RO 
CSPNTX 
if.SP 

R4.R3 

#*CTERCLS.R3 

TCOCOD(R3).R3 

fTC0ASC,R3 

R3.-(SP) 

#TCOASC.-(SP) 

#2.-(SP) 

SP.RO 

CSPNTX 

«6,SP 

R4,R3 

f*CFATERR.R3 

25S 

R3 

R3 

R3 

TSFCOD(R3),R3 

«TFCASC.R3 

R3.-(SP) 

fTFCASC.-(SP) 

f2.-(SF) 

SP«RO 

CSPNTX 

«6,SP 

f25.,FATFLG 
R4,RS 

f^CNIAOOR.RS 
SOS 

mXASC.RS 

R3,-(SP) 

fTEXASC,-(SP) 

f2.-(SP) 

SP.RO 

CSPNTX 

f6.SP 

«100210.R4 

31S 

fEPRT3«EPRTSU 

EPRTSU 

310S 

fEPRTi.EPRTSW 

EPRTSW.S2S«2 

fEPRTI 

fEPRT1.-(SP> 

fl.-(SP) 

SP.RO 

CSPNTB 

i4.SP 

*EPRT1 .EPRTSU 
PC 



GET THE TSSR CONTENTS 

CLEAR ALL BUT TERHJNATION 

GET THE TERHINATION CODE MEANING 

PRINT THE TERHINATION CODE 



;TSSR CONTENTS AGAIN 

: CLEAR ALL BUT FATAL TERHINATION 

: DON'T PRINT IF ZERO 



;ALINE TERHINATION CODE FOR INDEX 
;GET THE FATAL TERHINATION CODE 
.-PRINT THE FATAL TERHINATION CODE 



.•DROP UNIT AFTER THIS ERROR 

;GET TSSR CONTENTS 

.•CLEAR ALL BUT EXTENDED ADDRESS 

.•DON'T PRINT IF ZERO 

:PRINT THE EXTENDED ADDRESS BITS 



CHECK FOR HEDIA ERROR 

BR. IF PROBABLY NOT TAPE ERROR 

"PROBABLY HEDIA RELETED ERROR • BAD TAPE" 

CHECK FOR THE SUHCH EHPTY 

BR. IF SUITCH IS NOT EHPTY 

SET SWITCH TO DEFAULT 

PUT REAL SUITCHA8LE NESSAGE IN PLACE 

PRINT THE ERPOR NESSAGE 



.•RESET TO NORHAL ERROR POINTER 
: RETURN TO CALLER 



C2TUUA0 TU60 FRONT END PRT A MACRO M1200 29-MAR-83 
PRITSSR • PRINT TSSR CONTENTS 



1690 005672 












1691 00S672 


04 S 


116 


045 


EPRT1: 


•Maui A 


1692 005731 


045 

W^ J 


116 


045 


TSSRFOR: 


1693 005751 


045 


116 


045 


TEXASC : 




1694 006012 

1 w »~ W WWW 1 


045 


116 


045 


TCOASC: 




1695 006053 


045 


116 


04 S 


TFCASC: 




1696 006122 


045 

W^^ 


116 


045 


TSSDEF: 




1697 006151 


045 


116 


045 


AHBTSSR: 




1698 












FVFN 


1699 006212 


006232 


006255 


006303 

WwV^W«# 


TCOCOC: 


yODD 

« WWfllr 


17C0 006232 


116 


157 


162 


U 




ASCI 7 


1701 006255 


124 


145 


162 


28 




.ASCIZ 


1702 006303 


124 


141 


160 


38 




ASCI 7 


1703 006325 


106 


165 


156 


48 




.ASCI2 


1704 006345 


122 


145 


143 


58 




.ASCIZ 


1705 006427 


122 


145 


143 


68 




.ASCIZ 


1706 006476 


125 


156 


162 


78 




.ASCIZ 


1707 006522 


106 


141 


164 


88 




.ASCIZ 


1708 












.EVEN 


1709 












1710 006552 


006562 


006616 


006627 


TSFCOD: 


.UORD 


1711 006562 


111 


156 


164 


18 




.ASCIZ 


1712 006616 


122 


145 


163 


28 




.ASCIZ 


1713 006627 


102 


165 


163 


38 




.ASCIZ 


1714 006673 


122 


US 


163 


48 




.ASCIZ 


1715 












.EVEN 



D 4 
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SEQ 42 



•XNXA ••••tREPLACE N7454*«"»IS' 

.ASCIZ 'XNSA TSSR « X06' 

..«SC1Z *XNU Eittndtd Addrtts Bits * X06' 

.ASiiZ XNXA TtriRlnAtlon Class Codt * XT' 

.ASCIZ 'XNXA fatal Ttmlnatlon Class Codt « XT* 

.ASCIZ 'XNXA TSSR Bits St:: XT' 

.ASCIZ 'XNXA TSSR Conttnts Art Anblguous' 

18.28«38.48«58,68.78,8S 
'Nornal Ttralnatlon* 
*Ttra1nat1on Condition' 
*Tapt Status Altrt* 
'Function Rtitct' 

'Rtcovtrablt Error > Tapt Position Ont Rtcord Down* 
'Rtcovtrablt Error • Tapt Was Not Hovtd* 
'Unrtcovtrablt Error' 
'Fatal Controlltr Error' 



18,28,38.48 

Mnttrnal Diagnostic Fallurt* 
'Rtstrvtd' 

'Bus Inttrfact or Sanity Chtck Error* 
'Rtstrvtd* 



E 4 
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SEO 43 



1717 
1716 
1719 
1720 
1721 
1722 
1723 
1724 
1725 
1726 

1727 006704 

1728 006704 

1729 006710 

1730 006712 

1731 006716 

1732 006720 

1733 006722 

1734 C06724 

1735 006726 

1736 006730 

1737 006732 
006732 
006734 
0067S6 
006742 
006746 
0067S0 
006752 

1733 006756 

1739 006760 

1740 006762 

1741 006764 

1742 006770 

1743 006772 

1744 006774 

1745 006776 
006776 
00^000 
007002 
007006 
007012 
007014 
007016 

1746 007022 

1747 007024 

1748 007026 

1749 007030 
007030 
007034 
007040 
007042 
007044 

1750 007050 

1751 007052 

1752 007110 

1753 007145 
1754 



.S8TTL PRIPKT - PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET 



010005 
005737 
001001 
005003 
010301 
010400 
006100 
006101 

010446 
010146 
012746 
012746 
010600 
104414 
062706 
010300 
001404 
010401 
004737 
010004 
005001 
012402 

010246 
010146 
012746 
012746 
010600 
104414 
062706 
005201 
02010S 
002762 

012746 
012746 
010600 
104414 
062706 
000207 
045 
045 
045 



THIS ROUTINE PRINTS THE ADDRESS AND CONTENTS OF A COMMAND PACKET. 
THIS ROUTINE IS WRNALLY ONLY CALLED FROM A PRINT ROUTINE. 
INPUT: 

NUMBER OF WORDS IN PACKET 
HIGH ORDER COMMAND PACKET ADDRESS 
ADDRESS OF COMMAND PACKET 
R3 IS IGNORED IF THE KTENABLE FLAG IS CLEAR. 



PRIPKT: 



003102 



10$: 



007110 
000003 



000010 
020106 



15$: 



20$: 
25$: 



007052 
000003 



000010 



007145 
000001 



000004 

116 
116 
116 



RO 
R3 
R4 

NOTE: 



SAVREG 
MOV 
TST 
BNE 
CLR 
MOV 
MOV 
ROL 
ROL 

PRINTS 
MOV 
NOV 
MOV 
NOV 
MOV 
TRAP 
ADD 
NOV 
BEQ 
NOV 
JSR 
NOV 
CLR 
NOV 
PRINTS 
NOV 
NOV 
NOV 
NOV 
NOV 
TRAP 
ADD 
IN 
CNP 
BLT 

PRINTB 

NOV 

NOV 

NOV 

TRAP 

ADD 

RTS 

045 PKTFRN: .ASCIZ 
045 PKTADD: .ASCIZ 
045 PKTNEW: .ASCIZ 
.EVEN 



R0.R5 
KTENABLE 
10$ 
R3 

R3,R1 
R4,R0 
RO 
R1 

#PKTADD«R1,R4 

R4,-(SP) 

R1,-(SP} 

f PKTADD, -(SP) 

#3,-(SP) 

SP.RO 

C$PNTB 

flO.SP 

R3,R0 

20$ 

R4,R1 

PC.SETMAP 

R0,R4 

R1 

(R4)^,R2 

#PKTFRM«R1 ,R2 

R2.-(SPi 

R1,-<SP) 

fPKTFRM,-(SP) 

#3,-<SP) 

SP.PO 

C$PNTB 

flO.SP 

R1 

R1,P.5 
25$ 

fPKTNEU 
fPKTNEU,-(SP) 
f1,-<SP) 
SP.RO 
C$PNTB 
f4,SP 
PC 



;SAVE THE REGISTERS 
;SAVE NO. OF WORDS IN PACKET 
:ABOVF 28K UNDER TEST? 
*BR IF YES 

•SET HIGH ORDER ADDRESS TO 0 
;COPr HIGH ORDER ADDRESS 
:GET LOWER ADDRESS 
;SHIFT BIT 15 INTO C BIT 
:AND INTO HIGH ORDER. 
;PRINT PACKET ADDRESS 



:GET HIGH ORDER ADDRESS 

;BR IF NOT ABOVE 28K. 

:6ET LOW ORDER ADDRESS 

;SETUP PAR6 MAPPING FOR 18 BIT ADDRESS 

;6ET RETURNED PAR6 ADDRESS BIAS 

:SAVE WORD NUMBER 

;GET PACKET CONTENTS 

; PRINT THE DATA 



:NEXT WORD NUMBER 
.-DONE ALL PACKET WORDS? 
.•LOOP TILL ALL DONE 
:JUST A COUPLE NEW LINES 



.•RETURN 



*INXA Packtt W9rd ftDUA ^ 206' 
•INIA Packtt Addrtss = 101 t05* 
•XNXNIA • 



I 



F 4 



CZTUUAO TU80 FRONT END PftT A MACRO N1200 
PRIBXOR - PRINT EXPO, RECV AND XOR BYTE 

1757 
1?5S 
17S9 
1760 
1761 
1762 
1765 
1764 
1765 
1766 
1767 
1768 
1769 
1770 
1771 
1772 
1773 
1774 

1775 007156 

1776 007156 

1777 007162 

1778 007164 

1779 007174 

1780 007200 

1781 007202 

1782 007204 

1783 007206 
007206 
007210 
007212 
007214 
007220 
007224 
007226 
007230 

1784 007234 

1785 007236 
1786 

1787 007240 
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.SBTTL PRIBXOR - PRINT EXPD, RECV AND XOR BYTE 



PRINT EXPECTED DATA. RECEIVED DATA. AND XOR OF THE DATA BYTE 
THIS ROUTINE IS NORNALLY CALLED ONLY FOR PRINT ROUTINES. 



SEQ 44 



INPUTS: 



R1 
R2 



OUTPUT: 



010203 

012700 177400 
040001 
040002 
040003 

010346 
010146 
010246 

012746 007240 
012746 000004 
010600 
104414 

06c706 000012 

010300 

000207 



RO 



PRIBXOR:: 

SAVREG 
NOV 
XOR 
NOV 
BIC 
BIC 
BIC 

PRINTS 
NOV 
NOV 
NOV 
MOV 
NOV 
NOV 
TRAP 
ADD 
NOV 
RTS 



1788 

1789 



045 



116 



045 X0R8F0R: 



RECEIVED DATA 
EXPECTED DATA 



XOR OF EXPECTED/RECEIVED DATA 



R2,R3 
R1.R3 

#*C<377>.R0 
R0«R1 
R0,R2 
R0«R3 

fX0RBF0R.R2.R1 

R3.-(SP> 

RI.-(SP) 

R2,-(SP) 

fX0R8F0R«-(SP) 

f4,-(SP) 

SP«R0 

CIPNTB 

f12.SP 

R3,R0 

PC 



.-SAVE THE REGISTERS 
.•EXPECTED DATA 
.FORM THE EXCLUSIVE OR 
.BYTE MASK 
:SAVE LOU BYTE RECV 
:SAVE LOW BYTE EXPD 
:SAVE LOU BYTE XOR 
.R3 .'PRINT THE NESSAGE 



;R0 HAS XOR ON RETURN 
.•RETURN TO CALLER 



.EVEN 



.ASCIZ *XNXA EXPD: Z03IA RECV: X03XA XOR: Z03' 



CZTUyAO TU80 FRONT END PRT A MACRO HI 200 
PRIXOR - PRINT EXPO, RECV AND XOft 



1791 
1792 
1793 
1794 
1795 
1796 
?797 
1798 
1799 
iftOO 
1801 
1802 
1803 
1804 
1805 
1806 
1807 
1808 

1809 007306 

1810 007306 

1811 007312 

1812 0073U 

1813 007324 
007324 
007326 
007330 
007332 
007336 
007342 
007344 
007346 

1814 0073S2 

1815 007354 
1816 

1817 007356 
1818 
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.S8TTL PRIXOR - PRINT EXPD. RECV AND XOR 



PRINT EXPECTED DATA, RECEIVED DATA. AND XOR OP THE TWO 
THIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES. 



INPUTS: 



R1 
R2 



OUTPUT: 



010203 



010346 
010146 
010246 

012746 007356 
012746 000004 
010600 
104414 

062706 000012 

010300 

000207 



045 



116 



045 



RO 



PRIXOR:: 

SAVREG 

NOV 

XOR 

PRINTS 

NOV 

NOV 

NOV 

NOV 

NOV 

NOV 

TRAP 

ADD 

NOV 

RTS 

XORFOR. .ASCIZ 
.EVEN 



RECEIVED DATA 
EXPECTED DATA 



XOR OF EXPECTED/RECEIVED DATA 



;SAVE THE REGISTERS 
R2,R3 .-EXPECTED DATA 

R1,R3 :FORN THE EXCLUSIVE OR 

ffXORFOR.R2,Rl,R3 .-PRINT THE HESSAtiE 
R3.-<SP) 
RI.-(SP) 
R2,-(SP) 
f XORFOR, -(SP) 
#4.-(SP) 
SP.RO 
CSPNTB 
#12, SP 

R3.R0 ;R0 HAS XOR ON RETURN 

PC .-RETURN TO CALLER 

'XNXA EXPD: X06U RECV: S06XA XOR: 106' 



H 4 
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SEQ 46 



1820 
1821 
1822 
1823 
1824 
1825 
1826 
1827 
1828 
1829 
1830 
1831 
1832 
1833 

1834 007424 

1835 007424 

1836 007430 
1837 

1838 
1839 
1840 
1841 
1842 
1843 
1844 
1845 
1846 
1847 
1848 
1849 
1850 
1851 

1852 007432 

1853 007432 

1854 007436 
007436 
007440 
007444 
007450 
007452 
007454 

1855 007460 
1856 

1857 007462 

1858 

1859 

1860 

1861 

1862 

1863 

1864 

1865 

1866 

1867 

1868 

1869 

1870 



.SBTTL PRIEOU - PRINT BIT NUMBERS AS ASCII EQUIVALENT 



ROUTINE TO CONVERT 8IT VALUES TO ASCII AND PRINT THE STRING 
THIS ROUTINE IS NORNALLT CALLED FRON A PRINT ROUTINE 



INPUTS: 



RO OCTAL VALUE TO CONVERT 

R1 TABLc OF POINTERS TO ASCII EQUIVALENT 



PRIEOU: 



000207 



SAVRE6 
RTS PC 



;SAVE THE REGISTERS 
.•RETURN TO CALLER 



.SBTTL PRIRAR - PRINT RAH ADDRESS 



PRINT CONTROLLER RAM ADDRESS. 

THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 



INPUTS: 



R4 



RAM ADDRESS 



PRIRAM: 



010446 

012746 007462 
012746 000002 
010600 
104414 

062706 000006 
000207 



SAVRE6 

PRINTS fRAMF0R.R4 

MOV R4.-(SP) 

MOV fRAMFOR,-(SP) 

MOV f2.-(SP) 

MOV SP,RO 

TRAP CSPNTB 

ADD f6«SP 

RTS PC 



:SAVE R1-R5 UNTIL NEXT RETURN 
.'PRINT RAM ADDRESS IN ERROR 



.•RETURN 



045 



116 



045 RAMFOR: .ASCIZ *tNSA CONTROLLER RAM ADDRESS = X06* 
.EVEN 



.SBTTL PRIADO - PRINT MEMORY ERROR ADDRESS 



PRINT MEMORY ADDRESS 

THIS ROUTINE IS NORMALLY CALLED ONIY FROM PRINT ROUTINES. 
IMPLICIT INPUTS 



ERRHI - HI6N ORDER ADDRESS 
ERRLO - LOy ORDER ADDRESS 



CZTUyAO TU80 FRONT END PRT A HACRO NIZOO 
PRIADD - PRINT nEHORV ERROR ADDRESS 
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SEO 47 



1871 
1872 

1873 007S24 

1874 007524 

1875 007S30 

1876 007S34 

1877 007540 

1878 007542 

1879 007544 

1880 007546 
007546 
007550 
007552 
007556 
007562 
007564 
007566 

1881 007572 
1882 

1883 007574 

1884 

1885 

1886 

1887 

1888 

1889 

1890 

1891 

1892 

1895 

1894 

1895 

1896 

1897 

1898 

1899 007640 

1900 007640 

1901 007644 

1902 007650 

1903 007654 

1904 007656 

1905 007660 

1906 007662 
007662 
007664 
007666 
007672 
007676 
007700 
00770? 

1907 007706 

1908 007710 
1909 



013700 
013701 
010102 
006101 
006100 

010246 
010046 
012746 
012746 
010600 
104414 
062706 
000207 

045 



01 3700 
013701 
010102 
006101 
006100 

010246 
010046 
012746 
012746 
010600 
104414 
062706 
000207 
045 



PRIADD: 



002202 
002204 



007574 
000003 



000010 
116 



045 PRIAO: 



SAVREG 




NOV 


ERRmi ,R0 


NOV 


ERRL0«R1 


NOV 


A9 

R1 «R2 


ROL 


R1 


ROL 


RO 


PRINTB 


fPRIA0.R0.R2 






NOV 


RO.-(SP> 


NOV 


ffPRIAO.-(SP) 


NOV 


#3.-(SP) 


NOV 


SP.RO 


TRAP 


CSPNTB 


ADD 


#10. SP 


RTS 


Pt 


.ASCIZ 


'XNIA NENORY 


.EVEN 





:SAvE R>R5 until next return 

.'GET HIGH ADDRESSS 

;GET LOW ADDRESS 

.•COPY LOW ADDRESS 

:SH1FT BIT 15 TO C BIT 

;$HIFT INTO HIGH ORDER 

.•PRINT NENORY ADDRESS IN ERROR 



: RE TURN 



X01S0S' 



.SBTTL PRITADD - PRINT HEMORV TEST ADDRESS 



PRINT NENORY ADDRESS 

THIS ROUTINE IS NORHALLY CALLED ONLY FRON PRINT ROUTINES. 



INPLICIT INPUTS 



ERRHI 
ERRLO 



- HIGH ORDER ADDRESS 

- LOU ORDER ADDRESS 



PRITADD: 



002202 
002204 



007710 
000003 



000010 
116 



045 PRITO: 



SAVREG 

NOV 

NOV 

NOV 

ROL 

ROL 

PRINTB 

NOV 

NOV 

NOV 

NOV 

NOV 

TRAP 

ADD 

RTS 

.ASCIZ 

.EVEN 



ERRHI .RO 

ERRL0.R1 

R1.R2 

R1 

RO 

fPRIT0.R0.R2 

R2.-<SP) 

RO.-(SP} 

#PRITO.-(SP) 

f3,-(SP) 

SP.RO 

lSPNTB 

flO.SP 

PC 

*INSA NENORY 



:SAVE R1-RS UNTIL NEXT RETURN 

;GET HIGH ADDRESSS 

:GET LOW ADDRESS 

.-COPY LOW ADDRESS 

;SHIFT BIT 15 TO C BIT 

: SHI FT INTO HIGH ORDER 

:PRINT NENOnr ADDRESS IN ERROR 



.RETURN 
TEST ADDRESS 



101105' 



J 4 
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SEO 48 



1911 

1912 

1913 

1914 

1915 

1916 

1917 

1918 

1919 

19''0 

1921 

1922 

1923 

1924 

1925 

1926 

1927 

1928 

1929 

1930 

1931 

1932 

1933 

1934 

1935 

1936 

1937 

1938 

1939 

1940 

1941 

1942 

1943 

1944 

1945 

1946 007752 

1947 007752 

1948 007756 

1949 007764 

1950 007772 

1951 007774 

1952 007776 

1953 010002 

1954 010004 

1955 010010 

1956 010014 

1957 010022 

1958 010026 

1959 010032 

1960 010036 

1961 010040 
010040 
010044 
010046 
010052 
010054 
010060 



.SBTTl space - SPACE RECORDS (FORWARD AND REVERSE) COMNAND 



ROUTINE TO ISSUE A SPACE RECORDS 
COfWAND (FORWARD OR REVERSE) 



INPUT: 



R3 NUMBER OF RECORDS TO BE SPACED OVER 

eiTIS CONTmS DIRECTION 

BIT15 « 0 IS FORWARD 

BIT15 1 IS REVERSE 
R5 FIRST DEVICE UNIBUS ADDRESS 



REQUIRES A WRITE CHARACTERISTICS DONE PREVIOUSLY 



OUTPUT: 



CARRY 



RO 



SET - SPACE RECORDS COMMAND OK 
CtR - SPACE RECORDS FARED 



THE CONTENTS OF R4 IS MOVED TO RO 



IMPLICIT OUTPUT. 



TAPE NAS SEEN MOVED 



012737 
012737 
005703 
100403 
010337 
000407 
042703 
010337 
052737 
012704 
010465 
004737 
103420 

012727 
000000 
015727 
000000 
005367 
001375 







;SIDE 


EFFECTS: 








• m 

SPACE: 


« 










' SAVREG 




000764 


010150 




NOV 


f500.,SDELAY 


140010 


010140 




MOV 


#140010,80$ 








TST 


R3 








BHJ 


5S 


010142 






MOV 


R3,90S 








BR 


10S 


100000 




5t: 


BIC 


f8IT15«R3 


010142 






HOV 


R3,90S 


000400 


010140 




BIS 


fBITB.BOS 


010140 




10S: 


MOV 


#80S,R4 


177776 






MOV 


R4,TS0B(RS) 


016740 




15$: 


JSR 


PC.WAITF 








BCS 


20$ 








DELAY 


250 


000250 






NOV 


#250. (PC)* 








.WORD 


0 


002116 






MOV 


L$0LY,(PC)* 








.WORD 


0 


177772 






DEC 


-6 (PC) 








BNE 


.-4 



;SAVE THE GENERAL REGISTERS 
;SET UP DELAY 

;SET UP COMMAND, SPACE FORWARD 

;CHECK FOR DIRECTION 

;BR* IF REVERSE INDICATED 

;LOAD UP NUMBER OF RECORDS TO SPACE 

;G0 DO COMMAND 

;CLEAR DIRECTION BIT 

;LOAD UP NUMBER OF RECORDS TO SPACE 

;SET REVERSE BIT IN COMMAND PACKET 

;SET UP R4 WITH PACKET ADDRESS 

;SEND OUT COMMAND 

;WAIT FOR SSR 

;BR, IF SSR IS SET AND OK 

; DELAY ABOUT .25 SECONDS 
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SEO 49 



010062 
010066 

1962 010070 

1963 010074 

1964 010076 

1965 010100 

1966 010104 

1967 010110 

1968 010112 

1969 010114 

1970 010116 

1971 010120 

1972 010122 

1973 010124 

1974 010124 

1975 010126 
1976 

1977 
1978 

1980 010130 

1982 

1983 

1984 010140 
198S 

1986 010142 

1987 010144 

1988 010146 

1989 0101 SO 
1990 



005367 177756 
001367 

005337 010150 

001356 

000411 

016501 000000 

012702 000200 

020201 

001401 

000402 

000261 

000401 

000241 

010400 
000207 



000000 

000000 
000000 
000000 
000000 





vc w 








one 


• cv 






bpr 
vcw 


9VCLnf 






one 


1 ^# 


•BK» ir nUNC WLLnT 




BR 

On 




•RB t( TBnmi E TABBV m tl CAB 


MOV 








MOV 


#CCR R9 




CHP 


R? R1 






BEO 


40$ 


:BR< IF EQUAL « OK 


40$: 


BR 


60$ 


; TROUBLE EXIT 


SEC 




;SET CARRY NO TROUBLE 


60$: 


BR 


70$ 


:EXIT 


CLC 




.-CARRY CLEAR « ERROR 


70$: 










NOV 


R4.R0 


;PASS PACKET ADDRESS 




RTS 


PC 


.•RETURN 



:PACKET FOR SPACE CONNAND 

« 

.BLKB 10-<.-TUV2At7> 

•CQNHAND WORD 
80$: .WORD 

;NUNBER OF RECORDS TO BE SPACED OVER WORD 



90$: 



SDELAY: 



.yORD 
.WORD 
.WORD 
.WORD 
.EVEN 



.'DELAY COUNTER 



L <. 
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1992 

1993 

199A 

1995 

1996 

1997 

1998 

1999 

2000 

2001 

2002 

2003 

2004 

200S 

2006 

2007 

2008 

2009 

2010 

2011 

2012 

2013 

20U 

2015 

2016 

2017 

2018 

2019 

2020 

2021 

2022 

2025 010152 

2024 010152 

2025 010156 

2026 010162 

2027 010166 

2028 010172 

2029 010174 

2030 010176 

2031 010202 

2032 010206 

2033 010212 

2034 010214 

2035 010220 

2036 010222 

2037 010224 

2038 010226 

2039 010232 

2040 010234 

2041 010240 

2042 010242 

2043 010244 

2044 010246 

2045 010252 
2046 

2047 
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.SBTTL WRTCHR - WRITE CHARACTERISTICS COMMAND 



SEQ 50 



ROUTINE TO ISSUE A WRITE CHARACTERISTICS 
COMMAND SO THAT OTHER COMMANDS WILL BE ACCEPTED 



INPUT i 



R4 ADDRESS OF PACKET FROM TEST 

RS HRST DEVICE UNIBUS ADDRESS 
REQUIRES A CALL TO SOFINIT BE DONE PREVIOUSLY 



OUTPUT: 



RO TSSR CONTENTS 

CARRY SET - WRITE CHARACTERISTICS COMMAND OK 
CLR - WRITE CHARACTERISTICS FAILED 



IMPLICIT OUTPUT: 



MESSAGE BUFFER AND OTHER BUFFERS ALL SET UP 
SOFTWARE SWITCHES SET AS FOLLOWS: 

BENBSW - BUFFER ENABLE SWITCH ON OR OFF 



SIDE EFFECTS: 



WRTCHR: 



005037 


002174 




SAVRE6 




;SAVE THE GENERAL REGISTERS 




CLR 


BENBSW 


; CLEAR BUFFER ENABLE SWITCH 


010465 


177776 


10S: 


MOV 


R4,TSDB(R5} 


;SEND OUT COMMAND 


004737 


017054 




JSR 


PC.CHKTSSR 


;WAir FOR SSR 


103401 






BCS 


20S 


;BR, IF SSR IS SET AND OK 


000423 






BR 


60S 


;BR IF TROUBLE CARRY - CLEAR 


016501 


000000 


20S: 


MOV 


TSSR(R5),R1 


;READ TSSR 


012702 


000200 




MOV 


fSSR,R2 


;SET UP EXPECTED 


032701 


000100 




BIT 


fOFL.RI 


;WAS OFF LINE SET IN TSSR 


001402 






BEQ 


25S 


;BR, IF NO OFL SET 


052702 


000100 




BIS 


fOFL,R2 
R2,R1 


;MAKE THEM LOOK ALIKE 


020201 




25S: 


CMP 


;ARE THEY OK 


001401 






BEO 


40S 


;BR. IF EQUAL - OK 


000407 






BR 


60S 


; TROUBLE EXIT 


062704 


000010 


40S: 


ADD 


f8.,R4 


; POINT TO WRT CHARA DATA PACKET 


011403 






MOV 


(R4)«R3 


GET ADDRESS OF MESSAGE BUFFER 


010337 


002716 




MOV 


R3.MESBFA 


;STORE FOR PRINT ROUTINES 


000261 






SEC 




;SET CARRY NO TROUBLE 


000401 






BR 


70S 


lEXIT 


000241 




60S: 


CLC 




; CARRY CLEAR - ERROR 


016500 


000000 


70S: 


MOV 


TSSR(RS),RO 


■RETURN TSSR CONTENTS 


000207 






RTS 


PC 


•RETURN 



n 4 
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20A9 

2050 

20S1 

20S2 

20S3 

205A 

205S 

2056 

2057 

2058 

2059 

2060 

2061 

2062 

2063 

2064 

2065 

2066 

2067 

2068 

2069 

2070 

2071 

2072 

2073 

2074 

2075 

2076 

2077 010254 

2078 010254 

2079 010260 

2080 010264 

2081 010270 

2082 010274 

2083 010300 

2084 010302 
010302 
010306 
010310 
010314 
010316 
010322 
010324 
010330 

2085 010332 

2086 010334 

2087 010336 

2088 010340 

2089 010342 
2090 

2091 

2093 010344 

2095 010350 

2096 010350 

2097 010352 
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.SBTTL REWIND - POSITION TAPE (REUIND) COfWAND 



SEO $1 



THIS ROUTINE UILL KcUIND THE SELECTED TAPE. 

CAUTION: THE ROUTINE DOES NOT WAIT FOR BOT 

TO ARRIVE. ALSO THE CALLER (lUST CHECK FOR 
SSR TO SET IN THE TSSR 



CALLING SEQUENCE: 

DO A SOFT INIT 

DO A WRITE CHARACTERISTICS 



JSR 



INPUT: 



R5 



OUTPUT 



012704 
010465 
012703 
004737 
103417 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005303 
001357 
000241 
010400 
000207 



102010 
000000 



010350 
177776 
000550 
016740 



000372 
002116 
177772 
177756 



REWIND: 



10$: 



20$: 



RO 



SAVREC 

NOV 

NOV 

NOV 

JSR 

BCS 

DELAY 

NOV 

.WORD 

NOV 

.WORD 

DEC 

BNE 

DEC 

BNE 

DEC 

BNE 

CLC 

NOV 

RTS 



RWPACK: 



PC. REWIND 



FIRST DEVICE UNIBUS ADDRESS 



THE CONTENTS OF R4 IS PASSED TO RO 



#RWPACK.R4 

R4,TSDB(R5) 

f360..R3 

PC.WAITF 

20$ 

250. 

f250.,(PC)« 
0 

L$OLY.(PC)« 
0 

-6(PC) 
.-4 

-22(PC> 
.-20 
R3 
10$ 

R4,R0 
PC 



:SAVE R1-R5 UNTIL NEXT RETURN 

:6ET PACKET ADDRESS 

;SEND PACKET ADDRESS TO EXECUTE 

:EN0U6H TINE FOR 2400' REEL TO REWIND 

;WAIT FOR SSR TO SET 

; LEAVE WHEN SSR IS SET 

;WAIT FOR .25 SECONDS 



.BLKB 10-<.-TUV2Aft7> 



.WORD 
.WORD 



102010 
0 



:BUNP COUNTER DOWN 
:KEEP GOING 

; CLEAR CARRY TO SET ERROR 
:PASS THE PACKET ADDRESS 
; RE TURN 



.-POSTION COMMAND (REWIND) 
:NOT USED 



H 4 
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2099 
2100 
2101 
2102 
2103 
2104 
2105 
2106 
2107 

21 oe 

2109 
2110 
2111 
2112 
2113 
2114 
2115 
2116 
2117 
2118 
2119 
2120 
2121 
2122 
2123 
2124 
2125 
2126 

2127 010354 

2128 010354 

2129 010360 

2130 010364 

2131 010370 

2132 010372 

2133 010376 

2134 010402 

2135 010406 

2136 010412 

2137 010416 

2138 010420 

2139 010422 

2140 010424 

2141 010426 

2142 010432 

2143 010434 

2144 010436 

2145 010440 

2146 010442 

2147 010444 

2148 010446 

2149 010454 
2150 
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.SBTTL CKRAN - COMPARE RAH TO I/O PACKET 



SEQ 52 



ROUTINE TO READ THfc FIRST 8 BYTES FROM RAM 
MEMORY AND COMPARE THIS DATA TO A COMMAND PACKET. 



INPUT: 



R4 
R5 



ADDRESS OF THE COMMAND PACKET 
FIRST DEVICE UNIBUS ADDRESS 



OUTPUT: 



CARRY 



SET - RAM MATCHES PACKET 

CLR - RAM DOES NOT MATCH PACKET 



IMPLICIT OUTPUT: 



THE TABLE RAMDATA IS FILLED UITH THE 
DATA HELD IN RAM. 

RAMSIZ IS SET TO 8. FOR PRAMPKT ROUTINE 



SIDE EFFECTS: 



CKRAM: : 



012701 
012702 
005003 
004737 
004737 
110265 
004737 
116511 
122124 
001401 
005203 
005202 
020227 
003761 
005703 
001402 
000241 
000401 
000261 
012737 
000207 



002206 
000020 

017054 
017054 
177777 
017054 
177776 



000027 



10S: 



20S: 



000010 002246 



SOS: 
508: 



SAVREG 




;SAVE THE GENERAL REGISTERS 


MOV 


fRAMDATA.RI 


; ADDRESS TO SAVE THE RAM DATA 


MOV 


«RMPKTBE6.R2 


;BYTE ADDRESS OF FIRST RAM DATA 


CLR 


R3 


; CLEAR THE ERROR FLAG 


JSR 


PC.CHKTSSR 


;UAIT FOR SSR 


JSR 


PC.CHKTSSR 


;UAIT FOR SSR TO SET 


MOVB 


R2.TSDBH(R5) 


; SELECT NEXT RAM ADDRESS 


JSR 


PC.CHKTSSR 


;UAIT FOR SSR TO SET 


MOVB 


TSBAL(R5)«(R1) . 


;READ THE RAM DATA 


CMPB 


(R1)*«(R4)^ 


; COMPARE TO EXPECTED 


BEO 


20$ 


•BRANCH IF OK 


INC 


R3 


;SET ERROR FLAG 


INC 


R2 


; ADDRESS OF NEXT RAM LOCATION 


CMP 


R2.ffRMPKTEND 


; REACHED END YET ? 


BLE 


10$ 


;BRANCH TILL ALL READ 


TST 


R3 


WAS AN ERROR FOUND ? 


BEO 


30$ 


BRANCH IF NOT 


CLC 




; CLEAR CARRY TO SHOW ERROR 


BR 


50$ 


-AND EXIT 


SEC 




;SHOU GOOD COMPARE 


MOV 


#8.. RAMSIZ 


•SETUP RAMSIZ FOR PRAMPKT ROUTINE 


RTS 


PC 


•RETURN 
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21S2 
2153 
2155 
2157 
2159 
2160 
2162 
2164 
2165 
2167 
2170 
2171 

2172 010456 

2173 010456 

2174 010462 

2175 010466 

2176 010472 

2177 010476 

2178 010502 

2179 010506 

2180 010512 

2181 010516 

2182 010522 

2183 010526 

2184 010530 

2185 010534 

2186 010540 

2187 010542 

2188 010546 
010546 
010550 
010552 
010556 
010562 
010564 
010566 

2189 010572 

2190 010576 

2191 010602 

2192 010604 

2193 010606 

2194 010612 
010612 
010614 
010620 
010624 
010626 
010630 

2195 010634 

2196 010636 

2198 010640 

2199 010642 

2200 010644 

2201 010715 
2202 



015705 
012701 
013702 
013703 
004737 
110265 
004737 
116521 
062702 
077313 
013704 
013702 
060204 
162704 

010446 
010246 
012746 
012746 
010600 
104415 
062706 
012701 
013703 
005004 
112104 
042704 

010446 
012746 
012746 
010600 
104415 
062706 
077316 
000207 
000000 
OOCOOO 
045 
045 



.SBTTL RANER - READ AND DISPLAY SELECTED RAN 

ROUTINE TO READ THE SELECTED RAN LOCATIONS 
INPUT: 

R5 FIR^T DEVICE UNIBUS ADDRESS 

CONSOLE WILL ALSO BE PRINTED TO 
IMPLICIT OUTPUT: 

THE TABLE RANDATA IS FILLED WITH THE 

DATA HELD IN RAN. 
SIDE EFFECTS: 



RANER: 



010642 
002206 
010640 
002246 
017054 
177777 
017054 
177776 
000001 

002246 
010640 

000001 



010644 
000003 



000010 
002206 
002246 



177400 



010715 
000002 



000006 



10S: 



20$: 



30$: 



50$: 



SAVRE6 

NOV 

NOV 

NOV 

NOV 

JSR 

NOVB 

JSR 

NOVB 

ADD 

SOB 

NOV 

NOV 

ADD 

SUB 

PRINTX 

NOV 

MOV 

NOV 

MOV 

NOV 

TRAP 

ADD 

MOV 

MOV 

CLR 

MOVB 

BK 

PPINTX 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

SOB 

RTS 



116 
101 



RANHLD: .WORD 
RAMR5H: .VORU 
045 RAHIOP: .ASCIZ 
040 RAMPD: .ASCIZ 
.EVEN 



RAMR5H«R5 
fRAMDATA^RI 
RANHLD. R2 
RANSIZ,R3 
PCCHKTSSR 
R2JSDBH(R5) 
PC.CHKTSSR 



;SAVE THE GENERAL REGISTERS 
.•RESET R5 TO FIRST DEVICE REGISTER 
.•ADDRESS TO SAVE THE RAN DATA 
:BYTE ADDRESS OF THE FIRST RAM DATA 
;SET THE SIZE OF THE READ UP 
;UAIT FOR THE SSR TO SET 
: SELECT NEXT RAM ADDRESS 
;UAIT FOR SSR TO SET 



TSBAL(RS).(R1)« :READ THE RAM DATA 



.•ADDRESS OF THE NEXT RAN LOCATION 
;NUHBER OF LOCATIONS COUNTER 
;GET THE RAN SIZE 
.-GET THE STARTING RAH ADDRESS 
.•CALCULATE THE END ADDRESS 
: CORRECT VALUE OF PRINTOUT 
:RAM ADDRESS » 10 - 17. ETC. 



f1.R2 
R3.10$ 
RANSIZ,R4 
RANHLD. R2 
R2.R4 
f1.R4 

fRAMI0P.R2.R4 
R4.-(SP> 
R2.>(SP) 
fRAMIOP,-(SP> 
f3.-(SP) 
SP.RO 
C$PNTX 
#10.SP 
fRAHOATA.RI 
RAHSIZ.R3 
R4 

(R1)SR4 
f1 77400. R4 
fRANP0.R4 
R4.-(SP) 
fRANPD,-(SP> 
f2.-(SP) 
SP.RO 
C$PNTX 
#6.SP 

R3.30$ JLOOP UNTIL ALL PRINTED 

PC : RE TURN 

0 ;RAM ADDR HOLDER 1ST ADDRESS 

0 : HOLDS R5 FOR LATER 

•INXA Rm Addrtss (Octal) - X03XA - X03XN* 
*U Z03IA * 



: ADDRESS OF WHERE RAM DATA IS 
;THE SIZE OF THE RAM FIELD READ 
:N0 EXTRA DATA LEFT OVER 
; PICK UP BYTE OF RAM DATA 
:6ET RID OF SIGN EXTEND 
;'1010 211 111 222 377 000 123 134 ETC." 



C 5 
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SEQ 54 



2204 

2205 

2206 

2207 

2208 

2209 

2210 

2211 

2212 

2213 

2214 

221 S 

2216 

2217 

2218 

2219 

2220 

2221 

2222 

2223 

2224 

2225 

2226 

2227 

2228 

2229 

2230 

2231 010730 

2232 010730 
22SS 010734 

2234 010740 

2235 010744 

2236 010746 

2237 010752 

2238 010756 

2239 010762 

2240 010766 
2?41 010772 
2242 010774 
2245 010776 

2244 011000 

2245 011002 

2246 011010 

2247 011014 

2248 011016 

2249 011020 

2250 01102? 

2251 011024 

2252 011026 

2253 011030 
2254 



.SBTTL CKRAM2 • COMPARE RAH TO I/O CHARACTERISTICS DATA 



ROUTINE TO READ ^HE FIRST 8 OR 10 BYTES FROM RAM 

MEMORY AND COMPARE tHiS DATA TO A CHARACTERISTICS DATA BLOCK. 



INPUT: 



R4 

RS 



ADDRESS OF THE CHARACTERISTICS DATA 
FIRST DEVICE UNIBUS ADDRESS 



OUTPUT: 



CARRY 



SET - RAM MATCHES PACKET 

CLR - RAN DOES NOT NATCH PACKET 



IMPLICIT OUTPUT: 



THE TABLE RANDATA IS FILLED WITH THE 
DATA HELD IN RAM. 

RANSIZ IS SET TO 8. OR 10. FOR PRANPKT ROUTINE 



SIDE EFFECTS: 



CKRAN2:: 









SAVRE6 




SAVE THE GENERAL REGISTERS 


012701 


002206 




NOV 


«RANDATA.R1 


ADDRESS TO SAVE THE RAN DATA 


012702 


000167 




NOV 


«RNCHBE6«R2 


BYTE ADDRESS OF FIRST RAN DATA 


005003 






CLR 


R3 


•CLEAR THE ERROR FLAG 


004737 


017054 




JSR 


PC^CHKTSSR 


;UAIT FOR SSR 


004737 


017054 


10$: 


JSR 


PCCHKTSSR 


;UAIT FOR SSR TO SET 


110265 


177777 




NOVB 


R2,TS0BH(R5) 


; SELECT NEXT RAN ADDRESS 


004737 


017054 




JSR 


PC.CHKTSSR 


;UAIT FOR SSR TO SET 


116511 


177776 




NOVB 


TSBAL(RS>,(R1) . 


;READ THE RAN DATA 


122124 






CNP8 


(R1)^«(R4)* 


; COMPARE TO EXPECTED 


001 401 






BEQ 


20$ 


iBRANCH IF OK 


005203 






INC 


R3 


•SET ERROR FLAG 


005202 




20$: 


INC 


R2 


lADDRESS OF NEXT RAN LOCATION 


012737 


000010 002246 




NOV 


f8.*RANSIZ 


;ASSUNE NORNAL NOT SET 


020227 


000176 




CNP 


R2.«RNCHEND-2 


; REACHED END YET ? 


003756 




BLE 


10$ 


iBRANCH TILL ALL READ 


005703 




27$: 


TST 


R3 


;UAS AN ERROR FOUND ? 


001402 






BEQ 


30$ 


; BRANCH IF NOT 


000241 






CLC 




; CLEAR CARRY TO SHOW ERROR 


000401 






BR 


50$ 


;AND EXIT 


000261 




30$: 


SEC 




;SHOU GOOD COMPARE 


000207 




50$: 


RTS 


PC 


; RE TURN 



0 s 



CZTUUAO TU80 FRONT END PRT A MACRO MIZOO 29-nAR-83 13:2t 
CKMSG - COMPARE VRITE CHAR. MESSAGE BUFFERS 



PAGE 33 



SEQ 55 



22S6 
2257 
2258 
2259 
2260 
2261 
2262 
2263 
2264 
2265 
2266 
2267 
2268 
2269 
2270 
2271 
2272 
2273 
2274 
227S 
2276 
2277 
2278 
2279 
2280 

2281 011032 

2282 011032 

2283 011036 
2264 011042 

2285 011046 

2286 011052 

2287 011054 

2288 011060 

2289 011062 

2290 011064 

2291 011066 

2292 011070 

2293 011074 

2294 011100 

2295 011102 

2296 011104 

2297 011106 

2298 011112 

2299 011116 

2300 011120 

2301 011126 

2302 011130 

2303 011134 

2304 011136 

2305 011140 

2306 011142 

2307 011144 

2308 011146 

2309 011150 
2510 



010037 
010137 
005737 
001403 
004737 
010001 
005004 
005003 
010205 
011264 
011164 
022221 
001401 
005203 
062704 
020427 
003764 
032765 
001403 
020427 
003755 
005703 
001402 
000241 
000401 
000261 
000207 



.SBTTL CKMSG - COMPARE VRITE CHAR. MESSAGE BUFFERS 



ROUTINE TO COMPAP? A WRIT£ CHARACTERISTICS EXPD AND RECV 
BUFFER. THE EXPECTfcd AND RECEIVED BUFFERS ARE STORED FOR 
ERROR PRINT ROUTINES. 



INPUT: 



OUTPUT: 



RO 
Rl 
R2 



RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
RECV MESSAGE BUFFER LOW ORDER ADDRESS 
EXPD MESSAGE BUFFER ADDRESS 



CARRY 



SET - MESSAGE BUFFERS MATCH 

CLR -MESSAGE BUFFERS DON*T MATCH 



IMPLICIT OUTPUT: 

EXPMS6 
RECMSG 
RCVHIADD 
RCVLOADD 



CKMSG: 



BUFFER IS SET TO EXPD DATA 
BUFFER IS SET TO RECV DATA 
SET TO HIGH ORDER ADDRESS OF RECV 
SET TO LOW ORDER ADDRESS OF RECV 



002250 
002252 
003102 

020106 



002266 
002432 



000002 
000014 

000200 000012 
000016 



10$: 



15S: 



25S: 



50$: 



55$: 
60$: 



SAVREG 




•SAVE R1-R^ UNTIL NEXT RETURN 


MOV 


PO.RCVHIADD 


iSAVE RECV HIGH ADDRESS 


NOV 


RURCVLOAD 


;SAVE RECV LOW ADDRESS 


TST 


KTENABLE 


; TESTING ABOVE 28K? 


BEQ 


10$ 


;BR IF NO 


JSR 


PCSETMAP 


;RETURN ADDRESS BIASED TO PAR6 IN RO 


MOV 


RO.RI 


;GET RETURNED ADDRESS BIASED TO PAR6 


CLR 


R4 


;WORD IN BUFFER 


CLR 


R3 


CLEAR ERROR SEEN FLAG 


MOV 


R2,R5 


;GET EXPD BUFFER ADDRESS 


MOV 


(R2)«EXPMSG(R4) , 


;SAVE EXPD FOR ERROR REPORT 


mv 


(R1).RECMSG(R4) , 


;SAVE RECV FOR ERROR REPORT 


CMP 


(R2)t.(R1)t 


;EXPD EQUAL RECV? 


BED 


25$ 


;BR IF YES 


INC 


R3 


;SET ERROR SEEN FLAG 


ADD 


f2,R4 


;POINT TO NEXT WORD ADDRESS 


CMP 


R4.#14 
15i 


;DONE FIRST 7 WORDS? 


BLE 


BR IF NO 


BIT 


fX2.EXTF,XST2(R5] 


l;IS EXTENDED FEATURES SET IN EXPD? 


BEQ 


50$ 


;BR IF NO 


CMP 


R4«f16 


;DONE EXTENDED FEATURES WORD? 


BLE 


15$ 


;BR IF NO 


TST 


R3 


;ANY ERRORS SEEN? 


BEQ 


55$ 


;BR IF NO 


CIC 




;SET FAILURE 


BR 


60$ 




SEC 




SET SUCCESS 


RTS 


PC ! 


; RE TURN 



E S 



CZTUWAO TU80 FRONT END PRT A NACRO HI 200 
CICNS02 - COMPARE EXPD «ECV NESSA6E BUFFERS 



?312 

2313 

23U 

2315 

2516 

2317 

2318 

2319 

2320 

2321 

2322 

2323 

2324 

2325 

2326 

2327 

2328 

2329 

2330 

2331 

2332 

2333 

2334 

2335 

2336 

2337 

2338 

2339 011152 

2340 011152 

2341 011156 
2S42 011162 

2343 011164 

2344 011170 
011170 
011174 
011200 
011202 
011204 

2345 011210 
2546 011214 

2347 011220 

2348 011224 

2349 011226 

2550 011252 

2551 011254 

2552 011256 
2555 011240 

2554 011244 

2555 011250 

2556 011252 

2557 011254 

2358 011256 

2359 011262 

2360 011264 

2561 011266 

2562 011270 
?M5 01127? 



020527 
005412 
012703 

012746 
012746 
010600 
104417 
062706 
010057 
010157 
005757 
001405 
004757 
010001 
005004 
005005 
111264 
111164 
122221 
001401 
005205 
062704 
020405 
002001 
000764 
005705 
001402 
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.SBTTL CKMSG2 - COHPARE EKPD RECV MESSAGE BUFFERS 



SEO ^6 



000144 

000U4 

011504 
000001 



000004 
002250 
002252 
005102 

020106 



002266 
002452 



000001 



ROUTINE TO COHPA»F. AN EXPECTED AND RECEIVED MESSAGE 
BUFFER. THE EXPECTfci^ AND RECEIVED BUFFERS ARE STORED FOR 
ERROR PRINT ROUTINES. 



INPUT: 



RO 
R1 
R2 
R5 



RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
RECV MESSAGE BUFFER LOU ORDER ADDRESS 
EXPD MESSAGE BUFFER ADDRESS 
NUMBER OF BYTES TO COMPARE 



OUTPUT: 



CARRY 



SET - MESSAGE BUFFERS MATCH 

CLR - MESSAGE BUFFERS DON'T MATCH 



IMPLICIT OUTPUT: 

EXPMSG 
RECMSG 
RCVHIADO 
RCVLOADD 



BUFFER IS SET TO EXf'D DATA 
BUFFER IS SET TO RECV DATA 
SET TO HIGH ORDER ADDRESS OF RECV 
SET TO LOU ORDER ADDRESS OF RECV 



CKffSG2:: 



5S: 



10S: 
15S: 



25S: 



50$: 



SAVREG 

CMP 

BLE 

MOV 

PRINTF 

MOV 

NOV 

NOV 

TRAP 

ADD 

NOV 

NOV 

TST 

BEQ 

JSR 

NOV 

CLR 

CLR 

NOVB 

NOVB 

CNPB 

BEQ 

INC 

ADD 

CMP 

B6E 

BR 

TST 

BEO 



.-SAVE R1-R5 UNTIL NEXT RETURN 
R5.fRECMSG-EXPMSG:aaD IS COUNT ABOVE MAX ALLOWED? 
St :aBD BR IF NO 

«RECM$GHEXPMSG,R5:BBP 



fOEBUGMSG 
fOEBU6MSG,-(SP) 
51,-(SP) 
SP,RO 
CtPNTF 
f4,SP 

RO.RCVHIADD 

R1.RCVL0A0 

KTENABLE 

lot 

PCSETNAP 

R0.R1 

P4 

R5 

(R2).EXPMSG(R4) 

(R1).RECMSG(R4) 

(R2)«,(R1)« 

2St 

R5 

f1,R4 
R4.R5 

sot 

15t 
R5 
S5t 



iBBD 



SAVE RECV HIGH ADDRESS 
SAVE RECV LOU ADDRESS 
TESTING ABOVE 28K? 
BR IF NO 

RETURN ADDRESS BIASED TO PAR6 IN RO 

GET RETURNED ADDRESS BIASED TO PAR6 

WORD IN BUFFER 

CLEAR ERROR SEEN FLAG 

SAVE EXPD FOR ERROR REPORT 

SAVE RECV FOR ERROR REPORT 

EXPO EQUAL RECV? 

BR IF YES 

SET ERROR SEEN FLAG 
POINT TO NEXT BYTE 
DONE ALL BYTES? 
BR IF YES 
DO NEXT BYTE 
ANY ERRORS SEEN? 
BR IF NO 



CZTUUAO TU80 FRONT END PRT A MACRO N1200 
CKNS62 - COMPARE EXPO RECV MESSAGE BUFFERS 



f 5 
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SEO 57 



2364 011274 

2365 011276 

2366 011300 

2367 011302 
2368 

2369 011304 

2370 011374 

2371 011405 

2372 01 1440 

2373 01U73 
2374 



000241 
000401 
000261 
000207 

120 
04? 
040 
056 
12* 



122 
116 
040 
056 
105 



117 
045 
124 
056 
123 



5S»: 
60$: 



CLC 
BR 
SEC 
RTS 



OEBUGMSG: 
FERCM: .ASCII 



ERCM: 
SIMSG: 
TINERR: 



.ASCIZ 
.ASCI2 
.ASCIZ 
.EVEN 



60$ 

P*" 



SET FAILURE 

SET SUCCESS 
RETURN 



.ASCIZ 'PROGRAM INTERNAL ERROR -CKMSG2 MESSAGE BUFFER EXCEEDED-' :aao 
/XNXA 

/ TSSR ERROR CODE REC'D ' I 

I AFTER DOING SOFT INIT/ 

/TEST: .../ 



6 S 



004737 
004737 



104423 



005264 
017772 



004737 
012700 
004737 
013700 
005001 
004737 



104423 



005264 
000004 
006704 
002716 

015702 



CZTUWAU TU40 FRONT END PRT A MACRO r ^00 
CKNSG2 - COMPARE EKPD RECV MESSAGE SUFFERS 



2376 
2377 
2378 
2379 
2380 
2381 
2382 
2383 
2384 
2385 
2386 
2387 
2398 
2389 
2390 
2391 

2392 011506 
011506 

2393 011506 

2394 011512 

2395 011516 
011516 
011516 

2396 
2397 
2398 
2399 
2400 
2401 
2402 
2403 
2404 
2405 
2406 
2407 

2408 011520 
011520 

2409 011520 

2410 011524 

2411 011530 

2412 011554 

2413 011540 

2414 011542 

2415 011546 
011546 
011546 

2416 
2417 
2418 
2419 
2420 
2421 
2422 
2423 
2424 
2425 
2426 
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SEQ 58 



PRINT ROUTINE TO FATAL SOFT INIT ERRORS 
INPUT: 

R1 CONTENTS OF TSSR AT CRROR 

SIDE EFFECTS: 

EXECUTES DROP UNIT TO CEASE TESTING 



SFIMSG:: 



L10005: 



BGNMSG SFINSb 

I 

JSR PC.PRITSSR 

JSR PCCKDROP 
ENDHSG 

TRAP CSNSG 



.-PRINT CONTENTS OF TSSR REGISTER 
:DROP UNIT, IF ALLOWED 



PRINT ROUTINE TO PRINT THE CONTENTS OF 

TSSR AND A COMMAND PACKET OTHER THAN GET STATUS COMMAND PACKET. 



INPUTS: 



R1 TSSR CONTENTS 

R4 ADDRESS OF COMMAND PACKET 



PKTSSR:: 



BGNMS6 PKTSSR 



LI 0004: 



JSR 
MOV 
JSR 
NOV 
CLR 
JSR 

ENOMSG 



PC.PRITSSR 

f4,R0 

PCPRIPKT 

NESBFA.RO 

R1 

PCPRMESS 



PRINT THE CONTENTS OF TSSR REGISTER 

NO. OF WORDS IN PACKET 

PRINT THE CONTENTS OF COMMAND PACKET 

ADDRESS OF MESSAGE BUFFER 

ASSUME NO HIGH MEMORY 

PRINT THE MESSAGE BUFFER ALSO 



TRAP CSNSG 



PRINT ROUTINE TO PRINT THE CONTENTS OF 
TSSR AND A GET STATUS COMMAND PACKET. 



INPUTS: 



R1 TSSR CONTENTS 

R4 ADDRESS OF COMMAND PACKET 



CZTUyAO TU60 FRONT END PRT A HAGRO HI 200 
CKnSG2 - CQNPARf EXPO RECV MESSAGE BUFFERS 



H S 
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SEO 59 



2427 

2428 011550 
011550 

2429 011550 

2430 011554 

2431 011560 

2432 011564 
011564 
011564 

2433 
2434 
2435 
2436 
2437 
2438 
2439 
2440 
2441 
2442 
2443 

2444 011566 
011566 

2445 011566 

2446 011572 
011572 
011572 

2447 
2448 
2449 
2450 
2451 
2452 
2453 
2454 
2455 
2456 
2457 
2458 
2459 
2^60 
2461 

2462 011574 
011574 

2463 011574 

2464 011600 

2465 011602 

2466 011604 

2467 011610 
011610 
011610 

2468 



004737 
012700 
004737 



104423 



005264 
000002 
006704 



PKTGETS: 



B6NMS6 PKTGETS 



LIOOOS: 



JSR 
NOV 
JSR 

ENDNSG 



P'.PRIT^SR 

f2.K0 

PCPRIPKT 



:PRINT THE CONTENTS OF TSSR REGISTER 
;N0. OF WORDS IN GET STATUS PACKET 
;PRINT THE CONTENTS OF COfWANO PACKET 



TRAP CMSG 



PRINT TSSR ERRORS FOR INITIALIZATION TESTS 
INPUTS; 

R1 TSSR CONTENTS 

R4 ADDRESS OF CONNAND PACKET 



004737 
104423 



00S264 



SFFNSG:: 



LI 0006: 



BGNNSG SFFNSG 

JSR PCPRITSSR 
ENDNSG 

TRAP CMSG 



;PRINT CONTENTS OF TSSR REGISTER 



.S8TTL PKTNES - PRINT TSSR AND HESSAGE BUFFER 



PRINT ROUTINE TO PRINT THE CONTENTS OF TSSR AND NESSAGE 
BUFFER FOR ERROR REPORTS 



INPUTS: 



R1 CONTENTS OF TSSR 

R2 LOU ORDER HESSA6E BUFFER 

R3 HIGH ORDER MESSAGE BUFFER ADDRESS 

NOTE: R3 IS IGNORED IF KTENABLE FLAG IS CLEAR 



004737 
010200 
010301 
004737 



104423 



005264 
013702 



PKTNES:: 



BGNNSG PKTNES 



L10007: 



JSR 
NOV 
NOV 

JSR 

ENOnSG 



PC. ?R I TSSR 
R2,R0 
R3.R1 
PCPRNESS 



;PR1NT CONTENTS OF TSSR 
;LOW ORDER ADDRESS 
;HIGH ORDER ADDRESS 
: PR INT THE NESSAGE BUFFER 



TRAP CINSG 



I 5 



CZTUVAO TUftO FRONT END PRT A HACRO ni200 
ADDSSR - PRINT TEST ADDRESS AND TSSR 



2470 
2471 
2472 
2473 
2474 
2475 
2476 
2477 
2478 
2479 
2480 
2481 

2482 011612 
011612 

2483 011612 

2484 011616 

2485 011622 

2486 011626 
011626 
011626 

2487 
2488 
2489 
2490 
2491 
2492 
2493 
2494 
2495 
2496 
2497 
2498 
2499 
2500 

2501 011630 
011630 

2502 011630 

2503 011634 

2504 011640 
011640 
011640 

2505 
2506 



004737 
016501 
004737 



104423 



007640 
000000 
005264 



012700 
004737 



104423 



000007 
015242 



29-nAR>85 13:24 PAGE 56 



.SBTTL ADDSSR - PRINT TEST ADDRESS AND TSSR 



SEO 60 



PRINT ROUTINE TO PRINT THE CONTENTS OF 
TSSR AND A NEnORv TEST ADDRESS 



INPUTS: 



RS FIRST DEVICE UNIBUS ADDRESS 

ERRHI HIGH ORDER HEMRY TEST ADDRESS 
ERRLO LOU ORDER HENORY TEST ADDRESS 



ADDSSR:: 



BGNHSG ADDSSR 



LI 0010: 



JSR 
NOV 
JSR 

ENDflSG 



PC, PR IT ADD 

TSSR(RS).R1 

PCPRITSSR 



: PRINT HEMRY TEST ADDRESS 
;GET CURRENT TSSR 

.•PRINT THE CONTENTS OF TSSR REGISTER 



TRAP CMSG 



.SBTTL NSGEXP - PRINT URITE CHAR. EXPD-RECV MESSAGE BUFFERS 

♦ 

PRINT ROUTINE TO PRINT WRITE CHARACTERISTIC MESSAGE BUFFER 

IMPLICIT INPUTS: 

EXFNSG - EXPECTED MESSAGE BUFFER 

RECNS6 - RECEIVED MESSAGE BUFFER 

RCVHIADO- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

RCVLOAOO- RECEIVED MESSAGE BUFFER LOU ORDER ADDRESS 



MSGEXP: : 
5$: 

L10011: 



BGNHSG MSGEXP 



MOV 

JSR 

EN0HS6 



f7.R0 

PC.PRHSGEXP 



: ASSUME NO EXT FEATURES 

;PRINT EXPO/RECV MESSAGE BUFFERS 



TRAP CtMSG 



J s 



CZiUyAO TU80 FRONT END PRT A MACRO m200 
FIFEXP - PRINT FIFO EXP/RECV DATA 



2508 
2509 
2510 
2511 
2512 
2515 
25U 
2515 
2516 
2517 
2518 
2519 

2520 011642 
011642 

2521 011642 
011642 
011644 
011650 
011654 
011656 
011660 

2522 011664 
011664 
011670 
011674 
011676 
011700 

2523 011704 

2524 011706 

2525 011712 
011712 
011712 

2526 011714 

2527 011763 
2528 

2529 



010146 
012746 
012746 
010600 
104415 
062706 

012746 
012746 
010600 
104415 
062706 
010100 
004737 



104423 
04S 
045 
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.SBTTL FIFEXP - PRINT FIFO EXP/RECV DATA 



SEQ 61 



011714 
000002 



000006 

011763 
000001 



000004 
015612 



116 
116 



PRINT ROUTINE TO PRINT FIFO EXP/RECV DATA 

R1 • BYTE COUNT 

IMPLICIT INPUTS: 

EXPHS6 - EXPECTED HESSA6E BUFFER (CONTAINS FIFO DATA ONIV 
RECNS6 - RECEIVED NESSAGE BUFFER (CONTAINS FIFO DATA ONLY) 



FIFEXP: 



B6NNS6 FIFEXP 



045 
045 



L10012: 

FIF1NS6: 
FIF2nS6: 



PRINTX 

nov 

NOV 

NOV 

NOV 

TRAP 

ADD 

PRINTX 

PlOV 

NOV 

mv 

TRAP 
ADD 
NOV 
JSR 

EN0NS6 
TRAP 



ffFIFINSG.Rl 

RI.-(SP) 

fFIF1NS6,-($P) 

f2.-(SP> 

SP.RO 

CtPNTX 

f6,SP 

ffFIF2NS6 

fFIF2NSG,-($P) 

f1,-(SP> 

SP.RO 

CtPNTX 

f4,$P 

R1.R0 

PC.PRBYTEXP 



.•PRINT BYTES TRANSFERRED 



: PRINT HEADER NSG 



;6ET BYTE COUNT 

:PRINT FIFO BYTES IN ERROR 



.EVEN 



CtNSG 

.ASCIZ *XNXA NUNBER OF BYTES TRANSFERRED - 
.ASCIZ *SNZA FIFO DATA BYTES IN ERROR:' 



SD2' 



K 5 



CZTUWAO TUaO FROMT END PRT A 
NSGSTAT - PRINT STATUS HEADER 



2551 
2552 
2555 
2554 
2555 
2556 
2557 
255fl 
2559 
2S40 
2541 
2542 
254S 

2544 012022 
012022 

2545 012022 

2546 012026 

2547 012050 
2549 012052 

012052 
012034 
012040 
012042 
012044 

2549 012050 

2550 012052 

2551 0120S6 

2552 012062 
012062 
012062 

2555 

2554 012064 

2555 012102 

2556 012144 

2557 012255 

2558 012526 

2559 012417 

2560 012461 
2561 

2562 
2565 
2564 
2565 
2566 
2567 
2566 
2569 
2570 
2571 
2572 
2575 
2574 
2575 
2576 

2577 012556 
012556 
257a 012556 



NACRO HI 200 29-nAR-85 
AND MESSAGE BUFFERS 
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SEO 62 



.SBTa MSGSTAT - PRINT STATUS HEADER AND MESSAGE BUFFERS 



PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 



IMPLICIT INPUTS: 

EXPMSG - EXPECTED MESSAGE BUFFER 

RECMSG - RECEIVED MESSAGE BUFFER 

RCVHJADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

RCVLOADD- RECEIVED MESSAGE BUFFER LOU ORD^.;; ADDRESS 



012701 
012100 
001410 

010046 
012746 
010600 
104415 
062706 
000766 
012700 
004737 



104423 

012102 
045 
045 
045 
045 
045 
04S 



012064 



000001 



000004 

000012 
015242 



012144 012255 
116 045 



10$: 



116 
116 
116 
116 
116 



045 
045 
045 
045 
045 



20$: 



L10013: 



STAT COO: 
1$:.ASCIZ 
2$:.ASC1Z 
5$: .ASCII 
4$:.ASCIZ 
S$:.ASCIZ 
6$:. ASCI Z 

.EVEN 



BGNMSG 


MSGSTAT 


MOV 


fSTATCOD.RI 


MOV 


(R1)*«R0 


BEQ 


20$ 


PRINTX 


RO 


MOV 


RO,-(SP) 


MOV 


fl.-(SP) 


MOV 


SP«RO 


TRAP 


C$PNTX 


ADD 


f4,SP 


BR 


10$ 


MOV 


f10.,R0 


JSR 


PCPRMSGEXP 


ENDMSG 


TRAP 


C$MS6 



: ASCI I ADDRESS TABLE 
:D0NE ALL MSG LINES? 
'BR IF YES 

•PRINT STATUS BIT NAMES 



:D0 ANOTHER MSG LINE 

;NUMBER OF WORDS IN A READ STATUS BUFFER 
; PRINT EXPD/RECV MESSAGE BUFFERS 



.WORD 1$.2$.5$.4$«5$.6$«0 
*SNIA Tap* But Slontls In Word fS:* 
*INIA PARERR<1S> lEOT <12> 

*XNXA IRESV2<14> IIDENT<11> 

*XNU IRESV1<15> ICER <10> 

*XNU T«pt Bus Slanals in Word 19:* 
*XNXA DATMIS<7> ILW<6> 0UTRDY<5> 



IFMK <9> 
IHER <8> 
ISPEED<7> 



IRDY<6> 
I0NL<5> 
ILDP<4> 



IRUD<2>' 
IFBY<1>* 
IFPT<0>* 



INRDY<4>< 



.SBTTL MSGLOOP - PRINT L00P8ACK HEADER AND MESSAGE BUFFERS 

♦ 

PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 

IMPLICIT INPUTS: 

EXPMSG - EXPECTED MESSAGE BUFFER 

RECMSG - RECEIVED MESSAGE BUFFER 

RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

RCVLOAOD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 



012701 012600 



BGNMSG MSGLOOP 
MSGLOOP: : 

MOV fLOOPCOO.RI 



.'ASCII APPRK5 mt 



CZTUUAO TUSO FRONT END PRT A MACRO ni200 29-MAR-8S 13:24 
ASGLOOP - PRINT LOOPBACK HEADER AND MESSAGE BUFFERS 



L 5 
PAGE 38-1 



SEO 63 



2579 012S42 

2580 012S44 

2581 012S46 
012546 
0125S0 
012554 
012S56 
012560 

2582 012564 

2583 012566 

2584 012572 

2585 012576 
012576 
012576 

2586 

2587 012600 

2588 012620 

2589 012673 

2590 012772 

2591 013071 

2592 013170 

2593 013267 

2594 013366 
2595 

2596 



012100 
001410 

010046 
012746 
010600 
104415 
062706 
000766 
012700 
004737 



104423 

012620 
045 
045 
045 
045 
045 
045 
045 



000001 



000004 

000012 
015242 



012673 012772 
116 045 



116 
116 
116 
116 
116 
116 



045 
045 
045 
045 
045 
045 



10$: 



208: 



LI 001 4: 



LOOPCOD: 

1S:.ASCJZ 

2$:.ASCIZ 

3S:.ASCIZ 

4$:.ASCIZ 

5S:.ASCIZ 

6S:.ASCIZ 

71:. ASCI Z 



W)V 


(Rl )«,R0 


OCA 


cQ% 




an 

RU 




R.' Karl 


NOV 


#1.-(SP) 


MOV 


SP,RO 


TRAP 




ADD 


#4,SP 


BR 


10S 


HOV 


#10.. RO 


JSR 


PC.PRHSGEXP 


ENDMSG 




TRAP 


CSMS6 



:DONE ALL HSG LINES? 
'BR IF YES 

I-PRINT STATUS BIT NAMES 



:D0 ANOTHER MSG LINE 

; NUMBER OF WORDS IN A READ STATUS BUFFER 
.•PRINT EXPD/RECV MESSAGE BUFFERS 



.yORD lS.2S.3t.4S«5S.6$.7$.0 
*SNXA Tapt But Loopback Signals in Word «8:* 
PARERR<15> 



'INU 
*INIA 



.EVEN 



IHISP«>IE0T<12> 
'INSA IVFM x>IFMK<09> 
'XNXA ITAD0*>IRDV<06> 
'SNIA IREW x>IDBY<03> 
'INSA IGO <>IFPT<00>* 



IRESV2<14> 
IWRT«>IIDENT<11> 
IEDITx>lHER <08> 
ITADIOIONL <05> 
IRVU s>IRV0 <02> 



IRESV1<13> 
IREV OICER <10> 
I FAD x>ISPEED<07> 
lERASEolLDP <04> 
IFEN x>IFBV <01> 



N S 



IZTUUAO TU80 FRONT END PRT A HACRO HI 200 29-fUR-83 13:24 
NSGSUe - PRINT WRITE SUBSYSTEH MESSAGE BUFFER 
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SEQ 6t. 



2S98 
2599 
2600 
2601 
2602 
2603 
2604 
2605 
2606 
2607 
2608 
2609 
2610 

2611 015414 
013414 

2612 013414 

2613 013420 

2614 015424 
015424 
013424 



.SBTTL HSGSUB - PRINT WRITE SUBSYSTEM MESSAGE BUFFER 



PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPO/RECV 



IMPLICIT INPUTS: 

EXPNSG - EXPECTED MESSAGE BUFFER 

RECMS6 - RECEIVED MESSAGE BUFFER 

RCVHIADO- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 



012700 
004737 



104423 



000012 
015242 



MSGSUB: : 



BGNMSG MSGSUB 



L10015: 



MOV 

JSR 

ENDNSG 



f10.,R0 
PCPRMSGEXP 



;SI2E OF WRITE SUBSYSTEM BUFFER 
:PRINT EXPD/RECV MESSAGE BUFFERS 



2615 






2616 






2617 






2618 






2619 






2620 






2621 






2622 






2625 






2624 






2625 






2626 






2627 






2628 






2629 






2630 






2651 






2652 015426 






015426 






2655 015426 


004757 


007524 


2654 015452 


015701 


002176 


2655 015456 


015702 


002200 


2656 015442 


004757 


007506 


2657 015446 






015446 






015446 


104425 




2658 







TRAP CtMSG 



.SBTTL MEMADD - PRINT MEMORY ADDRESS DATA ERROR 

♦ 

PRINT ROUTINE TO PRINT MEMORY ADDRESS DATA COMPARE ERROR 

IMPLICIT INPUTS: 

ERRHI - MEMORY ERROR HIGH ORDER ADDRESS 

ERRLO ' MEMORY ERROR LOW ORDER ADDRESS 

EXP - EXPECTED DATA 

RECV - RECEIVED DATA 



MEMADD:: 



BGNMSG MEMADD 



L10016: 



JSR 
MOV 
MOV 

JSR 

ENDMSG 



PC.PRIADD 
EXPD.R1 
RECV.R2 
PCPRIXOR 



PRINT MEMORY ADDRESS IN ERROR 
GET EXPD DATA 
GET RECEIVED DATA 
PRINT EXPD/RECV 



TRAP CtMSG 



N S 



CZTUWAO TU80 FRONT END PRT A MCRO Ml 200 
PRAMPKT - PRINT RAM AND PACKET DATA 



2640 

2641 

2642 

2643 

2644 

2645 

2646 

2647 

2648 

2649 

2650 

2651 

2652 

2653 

2654 

2655 

2656 

2657 

2658 

2659 

2660 

2661 013450 

2662 013450 

2663 013454 

2664 013460 

2665 013462 

2666 013464 

2667 013466 

2668 013472 

2669 013476 

2670 013506 

2671 013512 

2672 013520 

2673 013526 
013526 
013530 
013534 
013540 
013542 
013546 
013552 
013554 
013556 

2674 013562 

2675 013564 

2676 013570 

2677 013572 
26/8 013576 

2679 013600 

2680 013602 

2681 013606 

2682 013610 

2683 013614 
2684 

2685 013616 
2686 



012701 
005002 
122124 
001000 
116105 
116403 

042703 
116137 
116437 

010346 
013746 
013746 
010246 
012746 
012746 
010600 
104414 
062706 
005202 
005737 
001404 
020237 
003731 
000403 
020227 
002725 
005037 
000207 

045 
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.SBTTL PRANPKT - PRINT RAM AND PACKET DATA 



SEa 63 



PRINT ROUTINE TO DISPLAY RAN/PACKET DATA 
UHEN THE RAM DATA UOES NOT MATCH. 

INPUTS: 

R4 POINTER TO COMMAND PACKET 

IMPLICIT INPUTS: 



RAMDATA 
RAMSiZ 



IMPLICIT OUTPUTS: 



DATA AS READ FROM THE RAM 
NUMBER OF BYTES IN PACKET 
IF RAMSIZsO THEN DEFAULT TO 8. 



RAMSIZ SET TO 0 



PRAMPKT: 



002206 






SAVRE6 






MOV 








CLR 






SS: 


CNPB 


177777 




7S: 


BNE 
MOVB 


177777 






MOVB 








XOR 


177400 






BIC 


177777 


002200 




MOVB 


177777 


002176 




MOVB 








PRINTB 








MOV 


002176 






MOV 


002200 






MOV 








MOV 


013616 






MOV 


000005 






MOV 








MOV 








TRAP 


000014 






ADO 






10$: 


INC 


002246 






TST 








BEQ 


002246 






CMP 








BLE 








BR 


000010 




15$: 


CMP 






20$: 


BLT 


002246 




25$: 


CLR 








RTS 


116 


045 


RANASC: 


.ASCIZ 








.EVEN 



fRAMOATA.RI 

R2 

(R1)«.(R4)« 
7$ 

-1<R1),R5 
-1 (R4) ,R3 
R5.R3 
#177400.R3 
-KRD.RECV 
-1(R4),EXPD 
fRAMASC.R2,RECV 
R3,-(SP) 
EXPD,-(SP) 
RECV.-(SP) 
R2.-(SP) 
#RANASC.-(SP> 
f5.-<SP) 
SP.RO 
C$PNTB 
fU.SP 
R2 

RAMSIZ 
15$ 

R2,RANSIZ 
5$ 
25$ 
R2.#8. 
5$ 

RAMSIZ 
PC 



;SAVE R1-R5 UNTIL NEXT RETURN 
;DATA FROM THE RAM 
;lNn BYTE NUMBER 
.•COMPARE EXPECTED, RECEIVED 
:BR IF NO MATCH 
:6ET RECV RAM DATA 
;6ET EXPD PACKET DATA 
:X0R EXPD/RECV 
;LOU BYTE ONLY 
:6ET RECEIVED RAM DATA 
:6ET EXPECTED RAM DATA 
.EXPD.R3 



UPDATE BYTE COUNT 
DEFAULT TO 8.? 
BR IF YES 
DONE ALL BYTES? 
BR IF NO 

DONE DEFAULT NUMBER OF BYTES? 
BR IF NO 

SET DEFAULT RAMSIZ 
RETURN 



'XNXA BYTE: XD2XA RAM: Z03XA Packet: X03XA X0R:X03' 



CZTUWAO TU80 FROM* END PRT A MACRO N1200 
PRHESS • PRINT CONTENTS OF MESSAGE BUFFER 



2686 

2689 

2690 

2691 

2692 

2693 

2694 

269S 

2696 

2697 

2698 

2699 

2700 

2701 

2702 

2703 

2704 

2705 013702 

2706 013702 

2707 013706 

2708 013712 

2709 013714 

2710 013720 

2711 013722 

2712 013724 

2713 013726 

2714 013730 

2715 013732 
013732 
013734 
013736 
013742 
013746 
013750 
013752 

2716 013756 

2717 013762 

2718 013764 
013764 
013770 
013774 
013776 
014000 

2719 014004 
014004 
014010 
0U014 
014016 
014020 

2720 014024 

2721 014026 

2722 014030 

2723 CI 4032 

2724 014034 

2725 014040 

2726 014042 

2727 014042 
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.SBTTL PRHESS - PRINT CONTENTS OF MESSAGE BUFFER 



THIS ROUTINE PRINTS THE CONTENTS OF 

THE 7 WORD MESSAGE BUFFER RETURNED BY THE 

TU80. 

INPUT: 

RO LOU ORDER ADDRESS OF MESSAGE BUFFER 

R1 HIGH ORDER ADDRESS OF MESSAGE BUFFER 

NOTE: R1 IS IGNORED IF KTENABLE FLAG IS CLEAR 

THIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 



PRMESS: 













010S37 


010642 




MOV 


R5 RAMRSH 


010005 






MOV 




005737 


003102 

WW^ 1 Vft 




TST 




001001 

W 1 WW 1 








101 

1 w9 


005001 






rt R 


R1 


010103 

W 1 w ■ w^ 




lot- 


MOV 


R1 RS 


006100 






ROL 


RO 

nw 


006101 

VwV ■ W 1 






RQL 

PRINTX 


R1 

fPROASC R1 R5 


010546 

W 1 w w 






MQV 


RS -(SP) 


010146 

W ■ W 1 ~ w 






MOV 


r1 -(sp) 


012746 


014533 




NOV 


fPROASC 


012746 


000003 

WWW** 




NOV 


f3 •(SP) 


010600 

W 1 WW 






MV 


SP RO 


104415 






TRAP 


CSPNTX 


062706 


000010 




ADD 


flO.SP 


022715 


177777 




CMP 


#1 77777, {R5) 


001010 






BME 

PRINTX 


15t 

fNESBFN 


012746 


014453 




NOV 


fMESBFN.-(SP) 


012746 


000001 




MOV 


fl.-(SP) 


010600 






mv 


SP.RO 


104415 






TRAP 


CSPNTX 


062706 


000004 




ADD 


f4.SP 






15$: 


PRINTX 


fPRlAS. 


012746 


014600 




MOV 


fPR1ASC,-(SP) 


012746 


000001 




NOV 


f1,-(SP) 


010600 






NOV f 


SP^RO 


10441S 






TRAP 


CSPNTX 


062706 


000004 




ADD 


f4.SP 


005004 






CLR 


R4 


010501 






MOV 


R5,R1 


010300 






MOV 


R3,R0 


001403 






BEQ 


20S 


004737 


020106 




JSR 


PCSETHAP 


010005 




20S: 


NOV 
PRINTX 


RO.RS 

fRESHEA.(R5)« 



;SAVE THE REGISTERS 

;SAVE DEVICE REGISTER POINTER 

.-SAVE LOW ORDER ADDRESS 

.•ADDRESS ABOVE 28K? 

*BR IF YES 

iSET HIGH ORDER ADDRESS TO 0 
.SAVE HIGH ORDER ADDRESS 
.•SHIFT BIT15 TO C BIT 
:SHIFT TO HIGH ORDER FOR PRINTOUT 
.•PRINT MESSAGE BUFFER ADDRESS 



;MESSAGE BUFFER FULL OF ONES 
.•BR IF BUFFER IS PROBABLY OKAY 
.•'YIESSAGE BUFFER PROBABLY NOT VALID" 



;PRINT HEADER FOR CONTENTS 



.•NUMBER OF THE NEXT WORD 

:COPY LOW ORDER ADDRESS 

;COPY HIGH ORDER ADDRESS 

:BR IF NOT ABOVE 28K 

;SETUP PAR ADDRESS IN RO 

.-GET PAR FORMAT ADDRESS ALOVE 28K 

•PRINT 'HESSAGP BUFFER HEADER ^" 



CZTUUAO TU80 FROMr END PRT A KKRO m200 
PRHESS - PRINT CONTENTS OF MESSAGE BUFFER 





012346 




0i40M 


A4 ^^L£. 

012746 


014636 


A1 1. ACA 
Ol^OSO 


01 2746 


AAAAA9 

000002 




A4 AX.AA 
010600 




A4 t AffX 


4 A/ / 4 C 

104413 




A1 /AAA 

01^060 


062706 


AAAAAA 
000006 


2726 0140M 








A1 9C/.A. 

012346 




A1ZAAX 
OI^OOO 


012746 


A1 A7AV 

014703 




A1 97ZA 

012f^46 


AAAAA9 
000002 




A1 AAAA 

010600 




A1i.1AA 


104*13 






AA97AA 

062 rOO 


AAAAAiL 

000006 








ML\t\L. 


A1 9</,A 




Ali.1 1 A 


A1 97£.iL 


A1£.7CA 
Ol*r 30 


Ul* 1 1* 


A1 97£iL 
Ulcr*iO 


AniiAA9 
OOvOOc 




OlOOVO 




UI*12C 


10* •►IS 






A&97AiL 
UOc rOO 


AAAAAil 
OUOOOO 










A1 9Ci.A 
01 23*0 




ni^1X9 


A1 97^A 
vlcr*0 


AKAK 
U 130 13 




A1 97A,iL 
Olcf *o 


AAAAA9 


m^i A9 


UlUOUV 






10**1 3 




U 1 % 1 


Aik97AA 


AAAAAX 

UvvwvO 


97T1 A1i.1C9 






U 1*11 3c 


A1 9C^A 
Ulc3*0 




Al^l <^ 


A1 97AA 


A1 <Ail9 




A1 97^A 
U 1 cr*0 


AAAAA9 




A1AAAA 




Ul^ lOO 


1 W** 1 3 






VOcrVD 


AAAAAA 


97X3 A1^17A 








V lc3*D 




A1^17A 


A1 97AA 


AK197 


A1^9A9 


A1 97^A 

Ul£'*0 


AAAAA3 




A1 AAikA 
OlOOUO 




A1A91 A 


lU** 1 3 




A1^91 9 


AA97AiL 


AAAAAil 
OUVOOO 


97XX A1A91A 






U 1 ^C 1 O 


A1 9<^A 
Ulc3*0 




A1A99A 


A1 97AA 


A1 CI 7L 


A1 A994 


A1 97AA 


AAAAA9 
UVUVwc 


A1A9XA 


A1AAAA 
UlUOVU 




A119X9 


1 W** 1 3 






Aik97AA 
UOc'UO 


AAAAAA 
vWvvO 


97X^ A1A9AA 


A997X7 


AAAAA1 AA91X^ 


271S 01424A 


001402 
WW ■ ^wc 




27S6 0U2S0 


000137 


014360 


27S7 0U2S4 






0U2S4 


012746 


014362 


0U260 


012746 


000001 


0U264 


010600 




0U266 


10441S 




0U270 


062706 


000004 



C 6 
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SEQ 67 



NOV 

NOV 

NOV 

NOV 

TRAP 

ADD 

PRINTX 

NOV 

NOV 

NOV 

NOV 

TRAP 

ADD 

PRINTX 

NOV 

NOV 

NOV 

NOV 

TRAP 

ADD 

PRINTX 

NOV 

NOV 

NOV 

NOV 

TRAP 

ADD 

PRINTX 

NOV 

NOV 

NOV 

NOV 

TRAP 

ADD 

PRINTX 

NOV 

NOV 

NOV 

NOV 

TRAP 

ADD 

PRINTX 

NOV 

NOV 

NOV 

NOV 

TRAP 

ADD 

CNP 

BEO 

JNP 

PRINTX 

NOV 

NOV 

NOV 

TRAP 



CR5)*.-(SP) 

#NESHEA.-(SP) 

#2.-(SP) 

SP.RO 

CIPNTX 

#6,SP 

#DATAFL.(RS)> 

(R5)*,-(SP) 

iDATAFL,<(SP) 

f2.-(SP) 

SP.RO 

CtPNTX 

#6.SP 

«RBPCRA.(R5)« 

(R5)*.-<SP) 

#RBPCRA.-(SP) 

f2.-(SP) 

SP.RO 

CSPNTX 

#6.SP 

«XSOCON,(RS)« 

(R5)*.-(SP) 

fXSOCON.-(SP) 

#2,-(SP) 

SP.RO 

CSPNTX 

f6,SP 

fXS1C0N.(R5)« 

(R5)*.-(SP) 

fXSICON.-(SP) 

f2.-(SP) 

SP.RO 

CfPNTX 

ff6.SP 

#XS2CON.(R5)« 

(R5)*.-(SP) 

ffXS2C0N.*(SP) 

f2.-<SP) 

SP.RO 

CSPNTX 

f6.SP 

#XS3CON.(R5)* 

(R5)*.-(SP) 

ffXS3C0N.-(SP) 

#2.-(SP) 

SP.RO 

CSPNTX 

f6.SP 

fl.TRANSTST 

40S 

SOS 

fRANFHR 

#RANFHR.-(SP) 

fl.-(Sr) 

SP.RO 

CSPNTX 



.•PRINT "DATA FIELD LENGTH 



;PRINT "RESIDUAL BYTE COUNTER -" 



.•PRINT "XSTATO CONTENTS 



• 



.•PRINT "XSTAT1 CONTENTS 



:PRINT "XSTAT2 CONTENTS 



;PRINT "XSTAT3 CONTENTS 



; CHECK SOFTWARE P-TABLE 
;D0 DUNP 

; DON'T DO THE DUNP 



CZTUyAO TU80 FRONT END PRT A HACRO m200 29-flAR-83 
PRNESS - PRINT CONTENTS Of MESSAGE BUFFER 



273a 014274 


012737 


000010 


002246 




NOV 


2739 014302 


012737 


000020 


010640 




NOV 


2740 014310 


004737 


0104S6 






JSR 


2741 014314 


012737 


00004C 


010640 




mv 


2742 014322 


004737 


010456 






JSR 


2743 014326 


012737 


000060 


010640 




NOV 


2744 014334 


004737 


010456 






JSR 


274S 01 4340 


012757 


000020 


002246 




NOV 


2746 014346 


012737 


000100 


010640 




NOV 


2747 0143S4 


004737 


010456 






JSR 


2748 014360 


000207 






50S: 


RTS 


2749 014362 


045 


116 


045 


RANFHR: 


.ASCIZ 


27S0 0144S3 


045 


116 


045 


NESBFN: 


.ASCIZ 


2751 014533 


045 


116 


045 


PROASC : 


.ASCIZ 


2752 014600 


045 


116 


045 


PR1ASC: 


.ASCIZ 


2753 












2f>4 01^630 


045 


116 


04 > 


NcSHEA: 


.ASCIZ 


2755 014703 


045 


116 


045 


OATAFL: 


.ASCIZ 


2756 014750 


045 


116 


045 


R8PCRA: 


.ASCIZ 


2757 015015 


045 


116 


045 


XSOCON: 


.ASCIZ 


2758 015062 


045 


116 


045 


XS1C0N: 


.ASCIZ 


2759 015127 


045 


116 


045 


XS2C0N: 


.ASCIZ 


2760 015174 


045 


116 


045 


XS3C0N: 


.ASCIZ 


2761 










.EVEN 
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«8.,RANSIZ 

f20.RANNL0 

PC.RANER 

f'O^RANHLD 

PC.NANER 

f60,RANHLD 

PC.RANER 

f16..RANSIZ 

«100,;)AHHLD 

PCRANER 

PC 

•XNU •••••••t 

'XNXA HESSA6E 
*SNSA Htssagt 
*SNXA Ntssagt 



:RAN FIELD IS 8 BYTES LONG 

.FIELD STARTS AT 20 OCTAL (10 HEX) 

:READ AND PRINT THEN 

.•FIELD STARTS AT 40 OCTAL (20 HEX) 

;READ AND PRINT THEN 

: FIELD STARTS AT 60 OCTAL (30 HEX) 

:READ AND PRINT THEN 

.-RAN FIELD IS SIXTEEN BYTES LONG 

: FIELD STARTS AT 100 OCTAL (40 HEX) 

:READ AND PRINT THEN 

'RETURN 

SPECIAL N7434 RAN NENORY DUMP tt**. 
BUFFER CONTENTS PROBABLY NOT VAlID* 
Bufftr Addrtss « SOISOS' 
Bufftr Conttnts:* 



*SNZA Htssagt Bufftr HMdtr 
'SNlA Data Fltld Ltnath 
*XNXA Rtsldual Bytt Counttr 
*SNU XSTATO Conttnts 
'XNXA XSTAT1 Conttnts 
*XNXA XSTAT2 Conttnts 
'XNXA XSTAT3 ConttntS 



X06* 
X06' 
X06* 
X06* 
X06* 
X06' 
X06* 



E 6 



CZTUUAO TU80 FRONT END PRT A MACRO HI 200 
PRMSGEXP - PRINT EXPD/RECV HESSAGE BUFFERS 



2763 
2764 
2765 
2766 
2767 
2768 
2769 
2770 
2771 
2772 

2773 01S242 

2774 015242 

2775 015246 

2776 015250 

2777 015254 

2778 015256 

2779 015262 

2780 015264 

2781 015266 
015266 
015270 
015272 
015276 
015302 
015304 
01SS06 

2782 015312 
015312 
015316 
015322 
015324 
015326 

2783 015332 

2784 015334 

2785 015340 

2786 015344 

2787 015346 

2788 015350 

2789 015360 
015360 
015362 
015364 
015366 
015370 
015374 
015400 
015402 
015404 

2790 015410 

2791 015412 

2792 015414 

2793 015416 

2794 015420 

2795 015422 

2796 015467 

2797 015525 
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.SBTTl PRNSGEXP - PRINT EXPD/RECV MESSAGE BUFFERS 



SEO 69 



010005 
013700 
010004 
013701 
006100 
006101 

010446 
010146 
012746 
012746 
010600 
104415 
062706 

012746 
012746 
010600 
104415 
062706 
005004 
012701 
012702 
011100 
011203 



010346 
012246 
012146 
010446 
012746 
012746 
010600 
104415 
062706 
005204 
020405 
C02001 
000752 
000207 
045 
945 
045 



ROUTINE TO PRINT EXPECTED AND RECEIVED MESSAGE BUFFERS 

RO - NUMBER OF WORDS IN BUFFER 
IMPLICIT INPUTS: 

EXPMS6 - EXPECTED MESSAGE BUFFER 

RECNS6 - RECEIVED MESSAGE BUFFER 

RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 



002252 
002250 



015422 
000003 



000010 

015467 
000001 



000004 

002266 
002432 



015525 
000005 



000014 



116 
116 
116 



PRNS6EXP:: 

SAVRE6 

MOV 

NOV 

NOV 

NOV 

ROL 

ROL 

PRINTX 

NOV 

NOV 

NOV 

NOV 

NOV 

TRAP 

ADD 

PRINTX 
NOV 
NOV 
NOV 
TRAP 
ADO 
CLR 
NOV 
NOV 
NOV 
NOV 
XOM 

PBINTX 
NOV 
NOV 
NOV 
NOV 
NOV 
NOV 
NOV 
TRAP 
ADD 
INC 
CNP 
6GE 
BR 
RTS 

.ASCIZ 
.ASCIZ 
.ASCIZ 



20S: 



R0.R5 

rcvloadd.ro 

R0.R4 

RCVHIADD.R1 

RO 

R1 

fPRNS60,Rl,R4 

R4.-(SP) 

R1,-(SP) 

fPRHSGO,-(SP) 

f3.-(SP) 

SP.RO 

CSPNTX 

•10.SP 

fPRMSG^ 

fPRNSGI.-(SP) 

•1,-(SP) 

SP.RO 

CSPNTX 

ff4,SP 

R4 

fEXPNSG.RI 
mCMS6.R2 
(RD.RO 
(R2),R3 
R0.R3 



.-SAVE R1-R5 UNTIL NEXT RETURN 

;SAVE NUMBER OF WORDS 

:GET RECV LOW ADDRESS 

:COPV LOW ADDRESS 

;GET RECV HIGH ADDRESS 

;SHIFT BIT1S TO C BIT 

; SHIFT TO HIGH ORDER FOR PRINTOUT 

: PRINT NESSAGE BUFFER ADDRESS 



.-PRINT HEADER FOR CONTENTS 



;NUNBER OF THE CURRENT WORD 
.-GET EXPD BUFFER ADDRESS 
{GET RECV BUFFER ADDRESS 
;6ET EXPD 
.-GET RECV 
;XOR EXPD/RECV 



30$: 
045 PRNSGO 
045 PRNSG1 
045 PfWS62 



mNS62.R4.(R1)«.(R2)*.R3 
R3,-(SP) 
(R2)*,-(SP) 
(R1)*.-(SP) 
R4.-(SP) 
fPRNS62.-(SP> 
f5.-<SP) 
SP.RO 
CtPNTX 
fU.SP 

R4 :NUNBER OF THE NEXT 

R4.R5 :DONE ALL YET? 

50$ :BR IF YES 

20$ :D0 ANOTHER 

PC .-RETURN 

*XNSA Ntt$«gt Buffer Addrtss * SOUOS' 

*lH%k Ntssagt Bufftr Conttnts:* 

•XNXA WORD ffXD2U EXPD: X06XA RECV: X06XA XOR: X06* 



F 6 
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SEO 70 



2800 
2801 
2802 
2803 
2804 
2805 
2806 
2807 
2808 
2809 
2810 
2811 
2812 

2813 015612 

2814 015612 

2815 015616 

2816 015620 

2817 015624 

2818 015626 

2819 015632 

2820 015636 

2821 015640 

2822 015644 

2823 015650 

2824 015652 

2825 015656 

2826 015662 

2827 015672 

2828 015674 

2829 015676 

2830 015702 

2831 015710 

2832 015712 
015712 
015714 
015720 
015724 
015726 
015732 
015736 
015740 
015742 

2833 015746 

2834 015756 

2835 015760 

2836 015760 

2837 015770 

2838 015770 

2839 015772 

2840 015774 

2841 015776 

2842 016000 
016000 
016004 
016010 
016014 
016016 



010005 
005037 
005004 
012701 
012702 
111100 
042700 
110037 
111203 
042703 
110337 

122122 
001431 
005237 
023727 
101023 

010346 
013746 
013746 
010446 
012746 
012746 
010600 
104415 
062706 

000404 



005204 
020405 
002001 
000717 

013746 
012746 
012746 
010600 
104415 



.SBTTL PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER 

ROUTINE TO PRINT ^RROR BYTES IN MESSAGE BUFFERS 

ONLY THE FINST 8 ERRORS ENCOUNTERED ARE PRINTED DUE TO SCREEN SPACE 

RO - NUMBER OF BYTES IN BUFFER 

IMPLICIT INPUTS: 

EXPMSG • EXPECTED MESSAGE BUFFER 
RECMCG - RECEIVED MESSAGE BUFFER 



002264 

002266 
002432 

177400 
016160 

177400 
016162 



002264 

002264 000010 



016162 
016160 

016026 
000005 



000014 



PRBYTEXP: : 

SAVRE6 

MOV 

CLR 

CLR 

MOV 

MOV 
20$: NOVO 

BJC 

HOVB 

NOVB 

BIC 

MOVB 

XOR 

CMPB 

BEQ 

INC 

CMP 

BNI 

278: PRJNTX 
NOV 

mv 

NOV 
NOV 
NOV 
NOV 
NOV 
TRAP 
ADD 

fORCEXiT 



002264 
016113 
000002 



308: 
35S: 



50S: 



BR 



R0.R5 
PRMNO 
R4 

iEXPHSG.RI 
ffRECMSG.R2 
(RD.RO 
f*C<377>,R0 
RO.PRBEXP 
(R2),R3 
•*C<377>.R3 
R3.PRBREC 
R0.R3 

(R1)«.(R2>« 
30S 
PRMNO 
PRNN0*f8. 
30$ 

«PRBNS6,R4,PRbc 
R3.-(SP) 
PRBREC,-(SP) 
PRBEXP.-(SP) 
R4,-(SP) 
fPRBNS6,-(SP> 
#5.-($P) 
SP.RO 
C$PNTX 
iU.SP 

50$ 

35$ 



SAVE R1-R5 UNTIL NEXT RETURN 
SAVE NUMBER OF BYTES 
INIT ERROR COUNT 
NUMBER OF THE CURRENT BYTE 
GET EXPD BUFFER ADDRESS 
GET RECV BUFFER ADDRESS 
GET EXPD BYTE 
CLEAR UPPER BYTE 
SAVE FOR ERROR REPORT 
GET RECV BYTE 
CLEAR UPPER BYTE 
FOR ERROR REPORT 
XOR EXPD/HECV 
EXPD « RECV? 
BR IF YES 
UPDATE ERROR COUNT 
PRINTED 8? 
BR IF YES 
XP.PR8REC,R3 



FORCERROR 27$,N0TSSR .-BBD 



INC 
CNP 
B6E 
BR 

PRINTX 
NOV 
NOV 
NOV 
NOV 
TRAP 



R4 

MM 

50i 

20$ 

fPRBtOT.PRNNO 
PRNNO,-(SP) 
iPRBTOT.-(SP) 
•2.-<$P) 
SP.RO 
C$PNTX 



*9BD 

;NUNBER OF THE NEXT 
;OONE ALL YET? 
:BR IF YES 
:D0 ANOTHER 

{PRINT TOTAL ERROR COUNT 
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SCO n 



016020 
2843 016024 
2844 

2845 016026 

2846 016113 
2847 

2848 016160 

2849 016162 
2850 

2851 
2852 
2853 
2854 
2855 
2856 
2857 
2858 
2859 
2860 
2861 

2862 016164 
016164 

2863 016164 

2864 016170 
016170 
016170 

2865 
2866 



062706 
000207 

045 
045 

000000 
000000 



004737 
104423 



000006 



116 
116 



007306 



ADD ff6,SP 
RTS PC 

045 PR8MS6: .ASCIZ 

045 PRBTOT: .ASCIZ 
.EVEN 
PPBEXP: .WORD 0 
PRBREC: .WORD 0 



; RE TURN 

'«NXA BYTE iXD2XA EXPO: X03XA RECV. S03SA 
'ZNlA NUMBER OF BYTES IN ERROR « ID2' 

.EXPO 
:RECV 



XOR: t03* 



PRINT ROUTINE TO DISPLAY EXPO/RECV DATA 
INPUTS: 



R1 
R2 



EXPREC:: 



110017: 



BGNNS6 

JSR 

^NDMSG 



RECEIVED DATA 
EXPECTED DATA 



EXfREC 
PC, PR I XOR 



: PR INT THE DATA 



TRAP CtRSG 



H 6 



CZTuyAO TueO FRONT END PRT A 
ExPeREC - PRINT EXPO/RECV BYTE 



2868 
2869 
2870 
2871 
2872 
2873 
2874 
287S 
2876 
2877 
2878 
2879 
2880 
2881 



NACRO 111200 29WUR-83 15:24 PAGE 44 
DATA 



SEQ 72 



.SSTTl EXPBREC • PRINT EXPD/RECV BV*' »ATA 



PRINT ROUTINE TO DISPLAY BYTE EXPD/RECV DATA 



INPUTS: 



R1 RECEIVED DATA BYTE 
R2 EXPECTED DATA BYTE 



28B2 
2885 



2884 
2885 
2886 
2887 
2388 
2889 
2890 
2891 
2892 
2895 
2894 
2895 
2896 
2897 
2898 
2899 
2900 
2901 
2902 
2903 
2904 
2905 
2906 
2907 
2908 

2909 
2910 



016172 
016172 

016172 004737 007156 

016176 

016176 

016176 104423 



EXPBREC: 



LI 0020: 



B6NMS6 EXPBREC 

JSR PCPRIBXOR 
END«IS6 

TRAP CMSG 



; PRINT THE DATA 



.SBTTL RfiNERR - PRINT RAM AND PACKET DATA 

PRINT ROUTINE TO DISPLAY RAN/PACKET DATA 
INRUTS: 

POINTER TO COfWAND PACKET 
JNRL, INPUTS: 



RMDATA 
RMSIZ 



DATA AS READ PROM THE RAM 
NUMBER OF BYTES IN PACKET 
IF RAMSIZ-O THEN DEFAULT TO 8. 



2911 
2912 
2913 
29U 
2915 
2916 
2917 
291B 



016200 
016200 

016200 004737 013450 

016204 

016204 

016204 104423 



IITLICIT OUTPUTS: 

RANSIZ SET TO 0 

m 

BBNMSG RANERR 



JSR PCPRANPKT 
ENOMSG 

TRAP CtHSG 



.PRINT RAM/PACKET DATA 



L10021: 



.SBTTL RAMTADD - PRINT TEST ADDRESS. RAN AND PACKET DATA 

♦ 

PRINT ROUTINE TO DISPLAY RAN/PACKET DATA 

INPOTSi 



1 6 
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RANTADO - PRINT TEST ADDRESS. RAN AND PACKET DATA 



2919 
2920 
2921 
2922 
2923 
2924 
2925 
2926 
2927 
2928 
2929 
2930 
2931 
2932 
2933 
2934 

2935 016206 
016206 

2936 016206 

2937 016212 

2938 016216 
016216 
016216 

2939 
2940 
2941 
2942 
294S 
2944 
2945 
2946 
2947 
2948 
2949 
2950 
2951 
2952 

2953 016220 
016220 

2954 016220 

2955 016224 

2956 016230 

2957 016234 

2958 016240 
016240 
016240 

2959 
2960 
2961 
2962 
2963 
2964 
2965 
2966 
2967 
2968 



R4 

•IMPLICIT INPUTS: 

« 

• RANDATA 
RAHSIZ 

■ ERRHI 
ERRLO 



POINTER TO CONHAND PACKET 



DATA AS READ FROM THE RAM 
NUMBER OF BYTES IN PACKET 
IF RAHSIZ>0 THEN DEFAULT TO 8. 
HIGH ORDER TEST ADDRESS 
LOy ORDER TEST ADDRESS 



004737 007640 
004737 013450 



104423 



: IMPLICIT OUTPUTS: 

: RAMSIZ SET TO 0 



B6NMSG RAMTADD 
RAMTADD:: 

JSR PCPRITADD 
JSR PC.PRAMPKT 
ENDMS6 

L10022: 

TRAP CtHSG 



;PRINT TEST ADDRESS 
: PRINT RAM/PACKET DATA 



.SBTTL RAMEXP - PRINT RAM EXPD/RECV DATA 

PRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
INPUTS: 

R1 RECEIVED DATA 

R2 EXPECTED DATA 
R4 CONTROLLER RAN ADDRESS 



042701 177400 

042702 177400 
004737 007432 
004737 007306 



104423 



RAMEXP: 



BGNHSG RAMEXP 



LI 0023: 



BIC 
BIC 
JSR 
JSR 

ENDMSG 



#*C<377>.R1 
#*C<377>.R2 
PC.PRIRAH 
PCPRIXOR 



:SAVE EXPD RAM DATA BYTE 

.•SAVE EXPD RAM DATA BYTE 

;PRINT THE RAM ADDRESS 

; PRINT THE DATA 



TRAP CtHSG 



.SBTTL TIHEXP - PRINT TIHER A,B AND EXP/REC 



PRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
AND TIMER A.B HEADER MESSAGE 



INPUTS: 



R1 RECEIVED DATA 

R2 EXPECTED DATA 



CZTUUAO 
TIHEXP 

2970 
2971 
2972 



J 6 



SEQ U 



2973 



2974 
2975 



016242 
016242 
016242 
016242 
016246 
016252 
016254 
016256 
016262 
016266 
016266 
016266 



012746 016270 

012746 000001 
010600 
104415 

062706 000004 

004737 007306 



104423 



2976 
2977 

2978 016270 045 
2979 
2980 
2981 
2982 
2983 
2984 
2985 
2986 
2987 
2988 
2989 
2990 
2991 
2992 



116 



2993 
2994 
2995 



2996 
2997 
2998 



2999 
3000 



016370 
016370 
016370 
016372 
016376 
016376 
016400 
016404 
016410 
016412 
016414 
016420 
016422 
016426 
016426 
016426 
016430 



010246 • 
042702 177400 

010246 

012746 , 016430 
012746 000002 
010600 
104414 

062706 000006 
012602 

004737 005264 



104423 
OAS 



116 



045 



TIHEXP:: 



B6NNSG TIHEXP 



PRINTX «TInSG0 
nOV «TIHSG0«-(SP) 
#1.-(SP> 
SP.RO 
CSPNTX 
f4,SP « 
PC.PRIXOR 



L10024: 



nov 
nov 

TRAP 
ADO 
JSR 
ENDHSG 



; PRINT HEADER 



:PRINT THE DATA 



TRAP . CSHSG 



HSCO: .ASCIZ *VXlk TIBER A STATUS IS IN BIT 3XNXA TIHER B STATUS IS IN BIT 2* 

VEN-> ' 



PRINT ROUTINE FOR TSSR ERRORS ON DATA TRANSFERS 
INPUTS: \\ « 



R1 : : CONTENTS OF TSSR 

R2 \ DATA URITTEN (8 BITS) 



.'SAVE DATA TRANSFERRED 
.'GET JUST ONE BYTE 



ABGNaSG jBADSSR 
' ^ BAOSSR: : \ ^' t 'J t . 
. ROV . %>R2;-(SP) 
, , ..BIC ' : #177400.R2 

; r :printb?:«ferasc.r2 . 

-HOV : R2.-<SP) 
, r KOV; #xFERASC.-(SP) 
. "BOV -(SP>- . , 

/ ROV ISP.RO . ^ 
, .TRAP .^:C$PNTB ' 
' ADO v.; #6,SP/ ; 
KOV <SP)*.R2 
JSR PC«PRITSSR 
^ ENDHSG 
L10025: . 

TRAP CSHSG 

045 XFERASC: .ASCIZ *XNXA Data Transferred = Z03* 



.•RESTORE R2 
: DECODE TSSR CONTENTS 



K 6 
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SOFINIT - SOFT INITIALIZE OF CONTROLLER 

3002 
3003 
3004 
3005 
3006 
3007 
3008 
3009 
3010 
3011 
3012 
3013 
30U 
301 S 
3016 
3017 
301S 
3019 
3020 
3021 
3022 
3023 
3024 
302S 
3026 
3027 
3028 
3029 

3030 016464 

3031 016464 

3032 016470 

3033 016476 

3034 016502 

3035 016506 

3036 016510 

3037 016514 

3038 016520 

3039 016522 

3040 016524 

3041 016526 

3042 016530 

3043 016532 
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.S8TTL SOFINIT - SOFT INITIALIZE OF CONTROLLER 



ROUTINE TO DO A SOM INITIALIZE OF THE CONTROLLER 
BY WRITING INTO THE TSSR REGISTER. AFTER THE INIT, 
THE TSSR REGISTER IS TESTED FOR ERRORS. ANY ERRORS 
DETECTED SHOULD ttE TREATED AS DEVICE FATAL ERRORS. 



SEQ 75 



INPUTS: 



R5 



ADDRESS OF FIRST REGISTER 



OUTPUTS: 



RO CONTENTS OF TSSR. IF ERROR 
CARRY SET IF INIT WAS OKAY 
CLEAR IF FATAL ERROR 



CALLING SEQUENCE: 



012765 
004737 
016500 
010004 
042704 
052704 
020400 
001402 
000241 
000401 
000261 
000207 



000000 
016740 
000000 

176277 
002200 



000000 



MOV 

JSR 
BCS 
ERRDF 



SOFINIT:: 

SAVREG 
NOV 
JSR 
MOV 
MOV 
BIC 
BIS 
CMP 
BEQ 
CLC 
BR 
SEC 
RTS 



iADDRESS.RS 
PC, SOFINIT 
CONTINUE 



: REPORT FATAL ERROR 



5$: 
10$: 



; SAVE THE REGISTERS 
ffO«TSSR(R5) ; DO THE INIT. 
PC.UAITF : WAIT FOR SSR 

TSSR(R5),R0 :GET THE TSSR REGISTER 
R0,R4 ;TSSR CONTENTS 

f*C<HIAD0R!0FL>.R4 

#SSR!NBA.R4 ;R4 HAS EXPECTED CONTENTS 
R4,R0 ;ONLY EXPECTED BITS SET ? 

5$ ; BRANCH IF OKAY 

; CLEAR THE CARRY FOR ERROR 
10S ;G0 TO EXIT 

;SET THE CARRY BIT 
PC :RETURN TO CALLER 



L 6 



010004 
032700 
001004 
032700 
001023 
000424 
032700 
001011 
032700 
001414 
042704 
020427 
001007 
000410 
032700 
001 40S 
032700 
001002 
000241 
000401 
000261 
000207 



100000 
174077 

000200 

000040 

177761 
000016 

000040 
000006 



CHKAMB: 



CZTUWAO TU80 FRONT END PRT A MACRO HI 200 
CHKANB - CHECK TSSR FOR AMBIGUITY 



304S 

3046 

3047 

3048 

3049 

3050 

3051 

3052 

3053 

3054 

3055 

3056 

3057 

3058 

3059 

3060 

3061 

3062 

3063 

3064 

3065 016534 

3066 016534 

3067 016540 

3068 016542 

3069 016546 

3070 016550 

3071 016554 

3072 016556 

3073 016560 

3074 016564 

3075 016566 

3076 016572 

3077 016574 

3078 016600 

3079 016604 

3080 016606 

3081 016610 

3082 016614 

3083 016616 

3084 016622 

3085 016624 

3086 016626 

3087 016630 

3088 016632 
3089 
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.SBTTL CHKANB - CHECK TSSR FOR AMBIGUITY 



SEQ 76 



THIS ROUTINE TESTS THE CONTENTS OF THE TSSR REGISTER 
FOR AMBIGUITY 



INPUT: 



RO 



OUTPUT : 



RO 



5$: 



10S: 



40S: 

45S: 
50$: 



SAVRE6 

MOV 

BIT 

BNE 

BIT 

BNE 

BR 

BIT 

BNE 

BIT 

BEQ 

BIC 

CMP 

BNE 

BR 

BIT 

BEQ 

BIT 

BNE 

CLC 

BR 

SEC 

RTS 



CONTENTS OF TSSR 



CONTENTS OF TSSR 



CARRY SET - NO AMBIGUITY 

CLR - AMBIGUOUS CONTENTS 



R0,R4 
fSCRO 

ss 

#*C<NBA!OFL!SSR 

40$ 

45» 

fSSR.RO 
10S 

fBIT5.R0 
40$ 

f*CTERCLS.R4 

R4.#16 

40$ 

45$ 

fBIT5«R0 
45$ 

fBIT2IBIT1.R0 
45$ 

50$ 

PC 



;SAVE THE GENERAL REGISTERS 
.-CONTENTS OF TSSR 
;IS BIT 15 SET ? 
'BRANCH IF YES 

!HIADDR>.RO :ANY OTHER BITS SET ? 
MUST BE AN ERROR 
RETURN UITH SUCCESS 
IS READY BIT SET ? 
BRANCH IF READY BIT IS SET. 
IS FATAL ERROR BIT SET ? 
ERROR IF NOT 

CLEAR ALL BUT TERMINATION CODE 
ALL THREE BITS MUST BE SET 
ERROR IF NOT SET 
OK IF ALL ARE SET 
IS FATAL ERROR BIT SET ? 
ERROR IF BIT IS SET WITH SSR 
IS THIS A FUNCTION REJECT 
BR. IF TSSR IS OK 
AMBIGUOUS CONTENTS 

;SHOW SUCCESS - NO AMBIGUITY 
: RE TURN TO CALLER 



n 6 
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ENAINT.DSBINT - ENABLE /DISABLE INTERRUPTS 



SEQ 77 



3091 
3092 
3093 
3094 
3095 
3096 
3097 
3098 
3099 
3100 
3101 
3102 
3103 

3104 016634 
3105 

3106 01663S 

3107 

3108 

3109 016636 
3110 

3111 016640 

3112 

5113 

3114 016642 

3115 016644 

3116 016650 

3117 016654 

3118 016660 

3119 016662 

3120 016664 

3121 016672 
3122 

3123 

3124 016674 

3125 016676 

3126 016704 
3127 



000200 
000001 



000 
000 

000000 
000000 



010046 

013700 002156 
012720 016706 
012720 000340 
012600 
011646 

012766 000000 000002 
000002 



011646 

012766 000340 000002 
000002 



.SBTTL ENAINT.DSBINT - ENABLE/DISABLE INTERRUPTS 

DEFAULT DISPLAY INTERRUPT HANDLERS. 

IF DISPLAY TINE-OUT, REPORT DEV FATAL, AND ABORT PASS. 

OTHERWISE. SAVE DfU REGISTERS AND DISMISS. 



BIT DEFINITIONS FOR "INTNASK" AND "INTFLA6" BYTES; 



I0KCKINSBIT7 
lOKSTPsBITO 



DON'T CHECK FOR BAD INTERRUPTS — TEST WILL. 
EXPECT "STOP" INTERRUPT. 



.•INTERRUPT MASK — SAYS EXPECTING INTERRUPTS 
INTMASK: .BYTE 0 

.•INTERRUPT FLAG — SAYS UE GOT ONE (IF POSITIVE) 
INTFLA6: .BYTE 0 

.•SAVED INTERRUPT VECTOR: 
INTVEC: .WORD 0 
.•SAVE CPU PC 
INTCPC: .UORD 0 



.•SUBROUTINE TO ENABLE lisiT'RRU.'TS: 
ENAINT: NOV RO.-(SP) ;SAVE RO 

IVEC.RO 
fINTR.(RO)« 
«PRI07.(R0)« 
(SP>^.RO 
(SP).-(SP) 
«0.2<SP) 



NOV 
NOV 
NOV 
NOV 
NOV 
NOV 
RTI 



;GET POINTER TO VECTORS 
;SET UP INTERRUPT VECTOR 



.•RESTORE RO 
;SET CPU TO LEVEL 0 



: SUBROUTINE TO DISABLE INTERRUPTS (RAISE PRIORITY TO LEVEL 7) 
DSBINT: NOV (SP).-(SP> 

NOV fPRI07.2(SP) 

RTI 



N 6 
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INTR - INTERRUPT HANDLERS 
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SEQ 78 



3129 
3130 
3131 

3132 
3133 
3134 
3135 
3136 
3137 
3138 
3139 
3U0 



3U1 
3U2 



016706 
016706 
016706 
0167U 
016720 
016726 
016730 



012737 
105037 
132737 
001003 
152737 



016736 
016736 
016736 

016736 000002 



.SBTTL INTR - INTERRUPT HANDLERS 



000001 
016635 
000001 



002172 
016634 



INTR:: 



BGNSRV INTR 



000001 016635 



MOV 

CLRB 

BITS 

BNE 

BISB 



«1,1NTRECV 
INTFLAG 



;DEMNE INTERRUPT ENTRY 

:SET FLAG TO SHOW INTERRUPT RECEIVED 
.•CLEAR FLAG TO SAY UE GOT INTERRUPT 



flOKSTPJNTNASK :EXPECTIN6 STOP INTERRUPT? 



1$ 



:6R IF YES 



flOKSTPJNTFLAG ;N0. SET THE ERROR FLAG. 



;SAVE REGISTERS. MSG BUFFER, ETC. 
1$: 

ENDSRV 

LI 0026: 

RTI 



CZTUUAO TU80 FRONT END PRT A HACRO 111200 
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3U4 
3U5 
3U6 
3U7 
3U8 
3U9 
31 SO 
3151 
3152 
3153 
3154 
3155 
3156 
3157 

3150 016740 
016740 

3159 016742 

3160 016746 
016746 
016752 
016754 
016760 
016762 
016766 
016770 
016774 

3161 016776 

3162 017002 
3163 

3164 017004 

3165 017006 
017006 
017012 
017014 
017020 
017022 
017026 
017030 
017034 

3166 017036 

3167 017040 
316S 017042 

3169 017044 

3170 017046 

3171 017050 

3172 017052 



104422 
012746 

012727 
000000 
013727 
000000 
005367 
001 3V5 
005367 
001367 
016500 
105700 

100420 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005316 
001356 
000241 
000401 
000261 
005526 
000207 



010000 
000001 
002116 
177772 
177756 
000000 

000001 
002116 
177772 
177756 



.SBTTL UAITF • UAIT FOR SUBSVSTEN READY 
SUBROUTINE TO VAIT FOR THE SUBSYSTEM READY FLAG 



INPUTS: 

R5 

OUTPUTS: 



yAITF 



2$: 



RO 

CARRY 



BREAK 

TRAP 

NOV 

DELAY 

MOV 

.WORD 

NOV 

.WORD 

DEC 

BNE 

DEC 

BNE 

NOV 

TSTB 

BMI 

DELAY 

NOV 

.WORD 

MOV 

.UORD 

DEC 

BNE 

DEC 

BNE 

DEC 



3$: 
4S: 



CLC 

BR 

SEC 

DEC 

RTS 



ADDRESS OF FIRST DEVICE REGISTER 



CONTENTS OF LAST TSSR READ 

SET • READY BIT SET 

CLR - TIMEOUT UAITING FOR READY 



CSBRK 

f10000,-(SP) 
1 

fl.(PC)* 
0 

LtDLY.(PC>» 
0 

-6(PC) 
.-4 

-22 (PC) 
.-20 

TSSR(R5)«R0 
RO 

3S 

1 

f1,<PC)* 

0 

LSDLY.(PC)» 
0 

-6(PC) 
.-4 

-22(PC) 
.-20 
(SP) 
2$ 

4$ 

(SP)» 
PC 



; 00 A SUPVSR BREAK FIRST. 

:BI6 MSEC TIMER 
:DELAY 100US 



;READ THE iSSR REGISTER 
.-TEST FOR READY BIT SET 

; EXIT ON STOP FLAG. 
: UAIT 100 USEC 



.•REDUCE DELAY COUNT 

;RETRY UNTIL TIMER EXPIRES 

: C - 0. CONTROLLER STILL RUNNING... 

;...0R HUNG-UP AFTER 300 MSEC. 

: C s 1, CONTROLLER IS STOPPED. 

.•RESTORE STACK WITHOUT CHANGING CARRY BIT 



C 7 



CZTUWAO TU80 FRONT END PRT A 
CHKTSSR - CHECK TSSR FOR READY 



3174 

5175 

3176 

3177 

3178 

3179 

3180 

3181 

3182 

3183 

3164 

3185 

3186 

3187 

3188 

3189 

3190 

3191 

3192 

3193 017054 

3194 017054 
3^95 017060 

3196 017062 

3197 017066 

3198 017070 

3199 017074 

3200 017076 

3201 017102 

3202 017104 

3203 017106 

3204 017110 

3205 017112 



MACRO Ml 200 29-nAR-83 13:24 PAGE SO 



004737 016740 
103014 

004737 016534 
103006 

032700 100000 
001405 

032700 074000 

001402 

000241 

000401 

000261 

000207 



.SBTTL CHKTSSR - CHECK TSSR FOR READY 



THIS ROUTINE WAITS FOR READY IN THE TSSR 
AND TESTS FOR AMBIGUOUS BIT SETTINGS IN TSSR. 



INPUT: 





R5 


ADDRESS OF CSR REGISTERS 


•OUTPUT: 






RO 


CONTENTS OF TSSR 




CARRY 


SET - OKAY 






CLR - NOT READY AMBIGUOUS, OR SC SET 


CHKTSSR: 






JSR 


PC.UAITF ;WAIT FOR READY 




BCC 


20$ ;BRANCH IF TIME OUT 




JSR 


PC«CMKAMB :TSSR ANBI60US? 




BCC 


10$ :BR IF YES 




BIT 


fSCRO .SPECIAL CONDITION SET? 




BEQ 


15$ ;BR IF NO 




BIT 


f<SCE!BIE!RMR!NXN>«RO ;ANY ERROR BITS SET? 




BEQ 


15$ :BR IF NO 


10S: 


CLC 


:SET FAILURE 




BR 


20$ 


15t: 


SEC 


;SET SUCCESS 


20$: 


RTS 


PC .-RETURN TO CALLER 



D 7 



5231 



012737 
012737 
00S003 
005711 

G20102 
001407 
062701 
000772 

005103 
012716 
000002 

012700 
104436 
005703 
001401 
000261 
000207 



017146 
000200 



000006 



CZIUUAO TUSO FROMT END PRT A HACftO H1200 
XNXrt - CHECK FOR NONEXISTENT NEWRV 



3207 
3208 
3209 
3210 
3211 
3212 
3213 
3214 
3215 
3216 
3217 

3218 017114 

3219 017122 

3220 017130 

3221 017132 
3222 

3223 017134 

3224 017136 

3225 017140 

3226 017144 
3227 

3228 017146 

3229 017150 

3230 017154 
017156 
017156 
017162 

3232 017164 

3233 017166 

3234 017170 

3235 017172 
3236 

3237 
3238 
3239 
3240 
3241 
3242 
3243 
3244 
5245 
3246 
3247 

3248 017174 

3249 017174 

3250 017200 

3251 017202 

3252 017206 

3253 017210 

3254 017214 

3255 017216 

3256 017220 

3257 017222 

3258 017224 
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SEQ 81 



000002 

017156 
000004 



005737 002136 
001006 

005737 002152 
100403 

005337 002164 

001002 

000241 

000401 

000261 

000207 





.SBTTL 


XNXN - CHECK FOR NONEXISTENT HENORV 


; ROUTINE TO TEST FOR A NEXH IN 


THE RANGE (R1) THRU (R2). 


; ON RETURN. IF 


= 1. (R1> » 


NEXN ADDRESS. 






"C" s 0. ALL ADDRESSES OK. 


ICALL: 


NOV ADR1.R1 






NOV ADR2.R2 






JSR PC.NXN 






RETURN 




;tc»t c and proceed. 


XNXH: 


NOV 


f2S.af4 


* 9t\ eUaCRR Vet TOR. 




NOV 


«PRl04.ai6 




1$: 


CLR 


R3 




TST 


(R1) 


• TCCT TUC AnflDBCCfCCl 








fir MIT itAr. 1.DN1JNUC Al c». 




CNP 


R1.R2 






BEQ 


3$ 


;BR IF FINISHED (NO NEXN'S). 




ADD 


f2.R1 


;SET NEXT ADDREiS... 




BR 


IS 


«...MW tONTIMIc. 


2$: 


CON 


R3 


:60T ONE, SET FLAG... 




NOV 


f3$,(SP} 




RTI 


:...AND DISNISS INTERRUPT... 


3*. 


CLRVEC 


#4 


:...AND GIVE BACK THE VECTOR. 




NOV 


ff4.R0 






TRAP 


CtCVEC 






TST 


R3 


:DID WE CATCH ONE ?? 




BEQ 


.♦4 


;N0. "C" * 0. SKIP NEXT. 




SEC 




:VES, "C" s 1. (R1) s MEXN ADDR. 




RTS 


PC 






.SBTTL 


TSTLOOP - CHECK 


ITERATION COUNT 



SUBROUTINE TO EXECUTE TEST ITERATIONS. 

EXIT WITH "C" SET IF LOOPS ALLOWED AND LOOP COUNT NON-ZERO. 
LOOP COUNTER IS SET BY 'VEGIN.TEST" MACRO. 



; ITERATIONS INHIBITED? 
; YES. 

IlOOPS DISALLOWED IN QUICK PASS. 
: BUNP LOOP COUNTER. 



; CALL: LOOPTO 


AR6 


TSTLOOP:: 




TST 


NOITS 


BNE 


IS 


TST 


QVP 


BNI 


IS 


DEC 


LOOPCNT 


BNE 


2S 


IS: CLC 




BR 


3S 


2S: SEC 




3S: RTS 


PC 



:LOOP DISALLOWED, OR DONE. 
:LOOP ENABLED. 



E 7 



CZTUVAO TU80 FRONT END PRT A MACRO N1200 
TSILOOP - CHECK ITERATION COUNT 



3260 

3261 

3262 

3263 

3264 

326S 

3266 

3267 

3268 

3269 

3270 

3271 

3272 

3273 

3274 

3275 

3276 

3277 

327S 

3379 

i280 

3281 

3282 

3283 

3284 

3285 

3286 

3287 

5288 017226 

3289 017226 

3290 017230 

3291 0172S4 

3292 017240 

3293 017244 

3294 017250 

3295 017254 

3296 017256 

3297 017262 

3298 017264 

5299 017266 

5300 017274 
017274 
017276 
017300 
017302 
017504 

5502 017506 
5505 017514 
017514 
017516 
017520 
017522 

3304 017524 

3305 017352 
017552 
017556 
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.SBTTL TSTSETUP - PRINT TEST NAME AND INIT ERROR COUNTS 



SEO 82 



PRINT THE NUNBER AND NANE OF EACH TEST AS WE 60 ALONG. 
INCREMENT "TESTK" TO INDICATE THE NUMBER OF TESTS 
IN THE CURRENT RUN SEQUENCE. 

CLEAR THE ERROR COUNTER AND SIGNATURE EXTENSION FLAGS. 



INPUT: 



RO 



POINTER TO TEST ID ASCIZ STRING 



OUTPUT: 



RS 



ADDRESS OF FIRST DEVICE REGISTER 

IMPLICIT OUTPUTS: 

TSTCNT UPDATED TO COUNT TESTS PERFORMED SINCE START OR RESTART 

SIDE EFFECTS: 

INTERRUPT LEVEL IS RASIED TO LEVEL OF 
THE DEVICE UNDER TEST 



TSTSETUP:: 



3301 



010046 








MOV 


RO,-<SP) 


;SAVE THE TEST ID MESSAGE 
; CLEAR "SOFT INIT" FLAG 


005037 


003106 






CLR 


SIFLAG 


005057 


017474 






CLR 


ERRK 


; CLEAR LOCAL ERROR COUNTER. 


005057 


005252 






CLR 


EXTA 


; CLEAR ERROR EXTENSION FLAG. 


105057 


016654 






CLR8 


INTNASK 


■ CLEAR INTERRUPT MASK (CHECK ERROR) 


015700 


002150 






MOV 


UNITN.RO 


; GET THE UNIT NUMBER. 


006500 








ASL 


RO 


; ... AND MAKE IT A WORD OFFSET. 


005757 


005062 






TST 


NODEV 


; DID STARTUP FIND THE DEVICE? 


001450 








BEQ 


4$ 


; BR IF YES 


100010 








8PL 


3S 


; BR IF NOT IDLE 


052760 


160000 


005150 




BIS 


#16000O,ERTABL(R0) ; FLAG ERROR IN THE ERKOR TABLE 
1.NXR.NXRERR ; NO DEVICE HERE — PRINT IT 










ERRDF 


104455 








TRAP 


ClERDF 




000001 








.WORD 


1 




005656 








.WORD 


NXR 




005176 








.WORD 


NXRERR 




000407 








BR 


2$ 




052760 


160001 


005150 


5t: 


BIS 


#160001 .ERTABL(RO) : FLAG ERROR IN THE ERROR TABLE 
2.N0INIT : DEVICE NOT IDLE 










ERRDF 


104455 








TRAP 


CURDF 




000002 








.WORD 


2 




004255 








.WORD 


NOINIT 




000000 








.WORD 


0 




012757 


177777 


005060 


28: 


MOV 


f-I.DUFLG : DROP THE UNIT 










DODU 


UNITN 




015700 


002150 






MOV 


UNITN.RO 




104451 








TRAP 


C8D00U 












DOCLN 


: ABORT IMF PASS 



f 7 

CZTUWAO TU0O FRONT END PRT A MACRO M1200 29-NAR-83 13:24 PAGE S2-1 
TSTSE1UP - PRINT TEST NAME ANl INIT ERROR COUNTS 

ClOCLN 

ss 

RO 

C»R»kA 
fPNT.RO 
U 

(SP).RO 
fTNAN.RD 
RO.«(SP) 
fTNAII.-(SP> 
f2.-(iP) 
SP.iO 
CIPNTF 
f6,SP 
TSTCNT 
IPRI 
IPRI.RO 
CtSPRI 
(SP)» 

CSRA0PR.R5 
PC 

*SSSTU Ttst* 



SEQ 83 



017340 


104444 






TRAP 


3307 017342 


000423 






BR 


3308 








3309 017344 






4t: 


RFLA6S 


017344 


104421 






TRAP 


3310 017346 


032700 


001000 




BIT 


3311 017352 


001412 






BEQ 


3312 017354 


011600 






NOV 


3313 017356 








PRINTF 


017356 


010046 






NOV 


017360 


012746 


017422 




NOV 


017364 


012746 


000002 




NOV 


017370 


010600 






NOV 


A« W 

017372 


104417 






TRAP 


017374 


062706 


000006 




ADO 


3314 017400 


005237 


AA1# M. 

002162 


11: 


INC 










ScTrRI 


017404 


013700 


002160 




NOV 


017410 


104441 






TRAP 


3316 017412 


005726 




SI: 


TST 


3317 017414 


013705 


002154 




NOV 


3318 017420 


000207 






RTS 


3319 017422 


045 


123 


045 TNAH: 


.ASCII 


3320 








.EVEN 



; GET THE OPERATOR FLAGS. 

; PRINT THE TEST NUNBCRS? 
* BR IF NO 
:6ET THE ID NESSA6E 
:DISPLAV THE TEST 10 



TEST COUNTER. 
;PRIORITr THAT OF DEVICE 



;F IX UP THE STACK 

; ADDRESS OF TSV REGISTERS Oh UNIBUS 



CZ^'jyAO TU80 FRONT END PRT A MACRO 111200 
TSTEND - PRINT ERRORS RECEIVED 



3322 
3323 
3324 
3325 
3326 

3327 017436 
017436 

3328 017440 

3329 017444 

3330 017446 
017446 
017452 
017456 
017462 
017464 
017466 

3331 017472 
3332 

3333 017474 

3334 017476 

3335 017515 
3336 

3337 
3338 
3339 
3340 
3341 

3342 017562 

3343 017566 

3344 017570 

3345 017574 

3346 017576 

3347 017602 

3348 017604 

3349 017610 

3350 017612 

3351 017614 

3352 017616 
3353 

3354 017620 

3355 017622 

3356 017626 

3357 017630 
335S 017634 

3359 0'7640 

3360 017644 

3361 017646 

3362 017654 

3363 017656 
017656 

3364 017660 

3365 017664 

3366 017666 

3367 017674 
017674 
017676 
017700 



104421 
030027 
001412 

013746 
012746 
012746 
010600 
104417 
062706 
000207 

000000 
045 
105 



005237 
010046 
013700 
006300 
062700 
005210 
032710 
001001 
005310 
0:2600 
000207 

010046 
013700 
006300 
016000 
042700 
020037 
103004 
023737 
105417 

104421 
032700 
001013 
012737 

104455 
000004 
017515 
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.S8TTL TSTEND - PRINT ERRORS RECEIVED 



AT END OF EACH TEST* PRINT THE NUMBER OF ERRORS RECEIVED 
IF NORMAL ERROR REPORTING IS DISABLED (FLA:IER). 



STEND: 



020000 



017474 
017476 
000002 



000006 



101 
122 



IS: 



RFLA6S 

TRAP 

BIT 

BED 

PRINTF 

MOV 

MOV 

NOV 

MOV 

TRAP 

ADD 

RTS 



BR IF "lER" NOT SET. 
PRINT ERROR COUNT. 



040 
122 



ERRK: 0 
ESUM: .ASCJZ 
EMAXDU: .ASCIZ 
.EVEN 



RO 

CSRFLA 

RO.flER 

It 

fESUN«ERRK 

ERRK.-(SP> 

fESUM«-(SP> 

f2.-<SP) 

SP^RO 

CtPNTF 

f6,SP 

PC 



; LOCAL ERROR COUNT. 

/U SDIA ERRORS/ 

/ERROR LIMIT REACHED — DROPPING UNIT/ 



.SBTTL INCERK - INCREMENT LOCAL ERROR COUNT 

;♦ 

: ROUTINES TO INCREMENT LOCAL ERROR COUNT AND CHECK FOR LIMIT: 



017474 
002150 
003130 
007777 



INCERK: INC 
MOV 
MOV 
ASL 
ADD 
INC 
BIT 



It: 



DEC 
MOV 
RTS 



002150 

003130 
170000 
002142 

017474 002140 



000040 

177777 003060 



CKEMAX: MOV 
MOV 



It: 



ASL 
MOV 
BIC 
CMP 
BHIS 
CMP 
BLO 
RFLA6S 
TRAP 
BIT 



MOV 

ERRDF 

TRAP 

.WORD 

.WORD 



ERRK 
RO,-(SP) 
UNITN.RO 
RO 

fERTABL.RO 

(RO) 

•7777. (RO) 

It 

(RO) 

(SP)«,RO 
PC 

RO.-(SP) 
UNITN.RO 
RO 

ERTABL(RO).RO 
i170000,R0 
RO.GERRMAX 
It 

ERRK.LERRNAX 

2t 

RO 

CtRFLA 

ilDU.RO 

2t 

i-I.DUFLG 

4.ENAXDU 

CtERDF 

ssmi 



INCREMENT LOCAL ERROR COUNT 
SAVE RO 

GET UNIT NUMBER. 

... AND MAKE IT A WORD OFFSET. 

RO GETS ADDRESS OF ERROR TABLE ENTRY. 

INCREMENT THE DEVICE ERROR COUNT 

DID WE OVERFLOW THE FIELD? 

BR IF NO. 

YES — BACK IT UP TO 7777. 
RESTORE RO 
RETURN TO CALLER. 

SAVE RO 

GET UNIT NUMBER 

... AND MAKE IT A WORD OFFSET 

GET ERROR TABLE ENTRY 

EXTRACT ERROR COUNT FIELD 

IS GLOBAL LIMIT EXCEEDED FOR THIS UNIT 

BR IF YES 

IS LOCAL LIMIT EXCEEDED FOR THIS TEST? 
BR IF NO 

GET OPERATOR FLAGS 

IS DROPPING INHIBITED? 

BR IF YES. 

NO — DROP THE UNIT 



CZTuyAO TU80 FRONT ENO PUT A fUCRO HI 200 
IMCEM - INCREMENT LOCAL ERROR COUNT 



H 7 
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SEQ 85 



017702 

3368 017704 
017704 
017710 

3369 017712 
017712 

3370 017714 

3371 017716 
3372 

3373 
3374 
3375 
3376 
3377 
3378 

3379 017720 

3380 017720 

3381 017724 

3382 017730 

3383 017732 

3384 017740 

3385 017744 

3386 017752 

3387 017754 
017754 

3388 017756 

3389 017762 

3390 017764 

3391 017770 
3392 

3393 
3394 



000000 

013700 002150 
104451 

104444 
012600 
000207 



2S: 



.WORD 

DODU 

NOV 

TRAP 

DOCLN 

TRAP 

NOV 

RTS 

.S8TTL 



FATCHK: 



013701 002150 
006301 

062761 000001 003130 

005237 002170 

023727 002170 000031 
002406 

104421 

032700 040000 
001002 

004737 017772 
000207 



9ft: 



0 

UNITN 

UNITN«R0 

CMK)DU 

CftDCLN 
(SP)««RO 
PC 



RESTORE RO 
RETURN TO CALLER 



FATCHK • INC FATAL ERRORS AND CHECK FOR LINIT 



CHECK FATAL COUNTER, AFTER INC. FOR NORE THAN 25 
ERRORS AND IF OVER CALL UNIT DROP ROUTINE 



SAVRE6 

NOV 

ASL 

ADD 

INC 

CNP 

BLT 

RFLA6S 

TRAP 

BIT 

BNE 

JSR 

RTS 



UNITN.R1 
R1 

f1,ERTABL(R1) 

FATFL6 

FATFL6.f25. 

9S 

RO 

CSRFLA 

feiTU.RO 

9ft 

PC.CKDROP 
PC 



:BETTER SAVE THE REGISTERS 

;PICK UP THE UNIT NUF9ER 

:NAKE IT INTO A BYTE OFFSET 

:ADD 1 TO THE PROPER UNIT'S ERROR COUNTER 

;BUMP FATAL ERROR COUNTER 

; CHECK AGAINST 25 

;BR, IF LESS THAN 25 ERRORS 

;READ THE FLAGS INTO RO 

BR. IF LOOP ON ERROR IS SET 
OTHERWISE NEVER BE ABLE TO SCOPE ETC. 
DROP UNIT IF ALLOWED 
RETURN ETC. 



I 7 



CZTUWAO TUSO FROM? END PRT A HACRO HI 200 
CKDROP • CHECK IF UNIT SHOULD BE DROPPED 



3396 
3397 
339S 
3399 

3400 017772 
340'» 017774 

3402 020004 
020004 

3403 020006 

3404 020012 

3405 020014 

3406 020016 

3407 020024 
020024 
020030 

3408 020032 
020032 

3409 020034 

3410 020036 
3411 

3412 
3413 
3414 
3415 
3416 
3417 
3418 

3419 020040 

3420 020040 

3421 020044 
3422 

3423 
3424 
3425 

3426 020046 

3427 020052 

3428 020054 

3429 020062 
3430 

3431 
3432 
3433 

3434 020064 

3435 020070 

3436 020072 

3437 020074 

3438 020076 

3439 020104 



010046 



104421 
032700 
001010 
011600 
012737 

013700 
104451 

104444 
012600 
000207 



004737 
000207 



005737 
001403 
012737 
000207 



005737 
001405 
000240 
000240 
012737 
000207 
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.SBTTL CKDROP - CHECK IF UNIT SHOULD BE DROPPED 



SEO 86 



CHECK IF UNIT SHOULD BE DROPPED 



000040 

177777 
002150 



003060 



CKDROP: NOV RO.-iSP) 

FORCERROR IS.NOTSSR 
RFLA6S RO 

CSRFLA 
fIDU.RO 
IS 

(SP).RO 
f-1,DUFL6 
UNITN 
UNITN.RO 
CSOODU 



IS: 



TRAP 
BIT 
BNE 
NOV 
NOV 
DODU 
NOV 
TRAP 
DOCLN 
TRAP 
NOV 
RTS 



CSDCLN 

(SP>»,RO 

PC 



; ABORT THE PASS 



016464 



.SBTTL CONFIG - DETERNINE CONFIGURATION OF SYSTEN 
SUBROUTINE - DETERNINE CONFIGURATION OF TU80 SYSTEN. 
CONFIG: 



JSR 
RTS 



PC«S0F1NIT 
PC 



003100 
000001 



SUBROUTINE - ENABLE HEN NGT. 



KTON: TST KTFLG 

BEQ It 

177572 NOV fUSRO 

IS: RTS PC 



SUBROUTINE - DISABLE HEH NGT. 



: GOT KT? 
* NO 

; YES. ENABLE KT11, 



003100 



KTOFF : TST 
BEQ 
NOP 
NOP 

177572 NOV 
IS: RTS 



KTFLl* 
IS 



fO.SMO 
PC 



; GOT KTll? 
: NO. 



: DISABLE KT, 



J 7 



CZIUVAO TUSO FRONT END PRT A 
SETNAP - SETUP PAR6 MAPPING 

3441 

3442 

3443 

3444 

344S 

3446 

3447 

3448 

3449 

34S0 

3451 

3452 

3453 

3454 

3455 

3456 

3457 

3458 

3459 

3460 020106 

3461 020106 

3462 020112 005737 003100 

3463 020116 001433 

3464 020120 010102 

3465 000006 
3466 

3467 
3468 

3469 020152 042701 000177 

3470 020156 020137 003100 

3471 020162 103011 

3472 020164 010137 172354 

3473 020170 042702 160000 

3474 020174 062702 UOOOO 

3475 020200 010200 

3476 020202 000261 

3477 020204 000401 

3478 020206 000241 

3479 020210 000207 
3480 
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SEQ 87 



.SBTTL SETNAP - SETUP PAR6 NAPPING 



THIS ROUTINE SETS UP KERNEL PAR6 TP HANDLE 
AN 18 BIT ADDRESS. THE OFFSET INTO THE PAGE 
IS RETURNED BIASED TO PAR6. 



INPUTS: 



RO HIGH ORDER ADDRESS BITS 
R1 LOU ORDER ADDRESS BITS 



OUTPUTS: 



RO OFFSET INTO BLOCK UITH PAR6 BIAS (I.E. THE ADDRESS) 
CARRY SET IF SUCCESS 
CLR IF ERROR 



SETNAP: 



10$: 
15$: 



SAVREG 




;SAVE R1-R4 UNTIL NEXT RETURN 


TST 


KTFL6 


: SYSTEM HAVE ABOVE 28K? 


BEO 


10$ 


*BR IF NO 


NOV 


R1.R2 


iSAVE LOW ORDER BITS 


.REPT 


6 


ASR 


RO 


: CONVERT WORD ADDRESS TO 32U BLOCKS 


ROR 


R1 


;NAKE IT DOUBLE PRECISION 


.ENDR 




BIC 


f177.R1 


: ALINE FOR LOWER 4K BOUNDARY 


CNP 


RI.KTFLG 


.•HIGHER THAN EXISTING NENORY? 


BHIS 


10$ 


*6R IF YES 


NOV 


R1.i#KIPAR6 


•SETUP NAPPING REGISTER PAR6 


BIC 


ff160000.R2 


; SETUP DISPLACEMENT IN PAGE 


ADD 


f140000,R2 


;ADD IN PAR6 BIAS 


NOV 


R2,R0 


:RETURN IN RO 


SEC 




:SET SUCCESS 


BR 


15$ 


• 


CLC 




•SET FAILURE 


RTS 


PC 


.•RETURN 
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3482 
3483 
3484 
348S 
3486 
3487 
3488 
3489 
3490 
3491 
3492 
3493 
3494 
3495 
3496 

3497 020212 

3498 020212 

3499 020216 

3500 020222 

3501 020224 

3502 020230 

3503 020234 

3504 020236 

3505 020240 

3506 020242 

3507 020246 

3508 020250 

3509 020254 

3510 020256 
3511 

3512 
3513 
3514 
3515 

3516 020326 

3517 020332 

3518 020334 

3519 020340 

3520 020342 

3521 020346 

3522 020354 

3523 020362 

3524 020364 

3525 020370 

3526 020374 
3527 

3528 



.SBTTL FILLMEH • FILL MEMRV WITH BACKGROUND PATTERN 

y 

FILL MEMORY WITH A BACKGROUND PATTERN 
INPUTS: 

RO s BACKGROUND PATTERN 

FREE s FIRST LOCATION AVAILABLE TO DIAGNOSTIC 
KTFLG < SET TO HIGHEST MEMORY LOCATION IF > 28K. 

OUTPUTS: 

NONE 

FILLMEM: 



004737 


020064 






SAVRE6 




;SAVE R1-R5 UNTIL NEXT RETURN 






JSR 


PC.KTOFF 


;DISABLE KT. 


010003 


003072 






NOV 


R0.R3 


;COPY TEST PATTERN 


013701 






NOV 


FREE.R1 


;GET FIRST FREE LOCATION 


013702 


003074 






NOV 


FRESIZ,R2 


iSIZE OF FREE SPACE BELOW 28K. 


010321 






108: 


NOV 


R3,(R1)« 


; STORE A BACKGROUND WORD 


005302 








DEC 


R2 


;DONE ALL NENORY IN FREE SPACE? 


003375 








B6T 


10S 


;BR IF NO 


005737 


003100 






TST 


KTFLG 


; GOT KT? 


001452 








BEQ 


55S 


; NO. GET OUT. 


004737 


020046 






JSR 


PCKTON 


; YES. ENABLE KT. 


005000 


003104 






CLR 


RO 


;HI6H ORDER ADDRESS START 


013701 






NOV 


PST32U,R1 


;6ET >28K START ADDRESS (IN 32W BLOCKS) 


000006 








.REPT 


6 












CLC 


; CLEAR C BIT 










ROL 


R1 : CONVERT BLOCKS TO WORDS 










ROL 


RO ;MAKE IT DOUBLE PRECISION 










.ENDR 






004737 


020106 






JSR 


PCSETMAP 


; SETUP PAR6 HAPPING REGISTER 


010320 






30S: 


NOV 


R3,(R0)* 


; STORE TEST PATTERN IN >28K ADDRESS 


020027 


160000 






CNP 


R0,f160000 


;END OF PAR6 NAPPING AREA? 


103774 








BLO 


30$ 


'BR IF NO 


162700 


020000 






SUB 


f20000,R0 


'BACKUP INTO PAR6 NAPPING BEGIN 


062737 


000200 


172354 




ADD 


f200»afKIPAR6 


; POINT TO NEXT 4K BLOCK >28K. 


023737 


172354 


003100 




CMP 


afKIPAR6.KTFL6 . 


;END OF NENORY? 


001402 








BEQ 


50$ 


;BR IF YES 


000137 


020332 






JMP 


30$ 


;KEEP GOING ON ETC. 


004737 


020064 




50S: 


JSR 


PC.KTOFF 


; DISABLE KT. 


000207 






55S: 


RTS 


PC 
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SEO 89 



3530 
3531 
3532 
3533 
3534 
3535 
3536 
3537 
3538 
3539 
3540 
3541 
3542 
3543 
3544 
354S 
3546 
3547 
3548 
3549 
3550 
3551 

3552 020376 

3553 020376 

3554 020402 

3555 020404 

3556 020410 

3557 020414 

3558 020420 

3559 020422 

3560 020424 

3561 020430 

3562 020434 

3563 020440 

3564 020444 

3565 020446 

3566 020450 

3567 020452 

3568 020454 

3569 020460 

3570 020462 

3571 020466 

3572 020470 
3573 

3574 
3575 
3576 

3577 020524 

3578 020530 

3579 020532 

3580 020S34 

3581 020540 

3582 020542 

3583 020544 

3584 020546 

3585 020550 

3586 020552 



010003 
004737 
013701 
013702 
020311 
001411 
010137 
005037 
010337 
011137 
000474 
005721 
005302 
003362 
005737 
001472 
004737 
005000 
013701 
000006 



010046 
010146 
004737 
010004 
012601 
012600 
020314 
001411 



.SBTTL CNPHEH - COMPARE NENORV TO BACKGROUND PATTERN 
COMPARE MEMORY UITH A BACKGROUND PATTERN 
INPUTS: 

RO X BACKGROUND PATTERN 

FREE * FIRST LOCATION AVAILABLE TO DIAGNOSTIC 
KTFLG ' SET TO HIGHEST MEMORY LOCATION IF > 28k. 

OUTPUTS: 



CARRY - SET IF NO ERROR 

CARRY - CLR IF ERROR 

IMPLICIT OUTPUTS: 

ERRHI - ERROR HIGH ADDRESS 

ERRLO • ERROR LOU ADDRESS 

EXPD - EXPECTED DATA 

RECV - RECEIVED DATA 



CMPMEN: 















NOV 


R0«R3 


020064 




JSR 


PC KTOFF 


003072 




NOV 


FREE*R1 


003074 




NOV 


FRESIZ,R2 




10$: 


CNP 
BEQ 


R3.(R1) 
13$ 


002204 




NOV 


R1, ERRLO 


002202 




CLR 


ERRHI 


002176 




NOV 


R3.EXPD 


002200 




NOV 


(R1 ) .RECV 




BR 


50$ 




15$: 


TST 
DEC 
B6T 


(R1)« 

R2 

10$ 


003100 




TST 
BEQ 


KTFLG 
55$ 


020046 




JSR 
CLR 


PC.KTON 
RO 


003104 




NOV 
.REPT 
ROL 
ROL 


PSTS2U.R1 

6 

R1 

RO 






.ENDR 


f177.R1 

RO,-(SP) 

R1,-(SP) 


000177 




BIC 
NOV 
NOV 


020106 




JSR 
NOV 
NOV 


PC.SETNAP 
R0.R4 

(SP)*,R1 






NOV 


(SP)*.RO 

R3.(R4) 

32$ 




30$: 


CNP 
BEQ 


002202 




NOV 


RO.ERRHl 



SAVE R1-R5 UNTIL NEXT RETURN 
COPY TEST PATTERN 
DISABLE KT. 

GET FIRST FREE LOCATION 
SIZE OF FREE SPACE BELOW 28K. 
FREE SPACE LOCATION EQUAL TO EXPD? 
BR IF YES 

SAVE ADDRESS IN ERROR 
NO HIGH ADDRESS 
SAVE EXPD FOR ERROR REPORT 
SAVE RECV FOR ERROR REPORT 

POINT TO NEXT ADDRESS 

DONE ALL NENORY IN FREE SPACE? 

BR IF NO 

GOT KT? 

NO. GET OUT. 

YES ENABLE KT. 

high'order address start 

GET >28K start ADDRESS (IN 32U BLOCKS) 

.'CONVERT BLOCKS TO UORDS 
;NAKE IT DOUBLE PRECISION 

: ALINE 4K BOUNDARY 

;SAVE HIGH ORDER 

;SAVE LOU ORDER 

;SETUP PAR6 NAPPING REGISTER 

:COPV ADDRESS BIASED TO PAR6 

:RESTORE LOU ORDER IN NON PAR6 FORMAT 

: RESTORE HIGH ORDER IN NON PAR6 FORMAT 

;ABOVE 28K LOCATION EQUAL EXPD? 

;BR IF YES 

;SAWP HIGH ORDFR IN ERROR 



CZTUUAO TU80 FRONT END PRT A MACRO HI 200 29-nAR-S3 
CHPHEN - COMPARE MEMORY TO BACKGROUND PATTERN 

3587 020SS6 010137 002204 MOV 

35B6 020562 010337 002176 MOV 

3589 020566 01U37 002200 MOV 

3590 020572 000421 BR 

3591 020574 062701 000002 32S: ADD 

3592 020600 005500 ADC 

3593 020602 062704 000002 ADD 

3594 020606 020427 160000 CMP 

3595 020612 103755 BLO 

3596 020614 162704 020000 SUB 

3597 020620 062737 000200 172354 ADD 

3598 020626 023737 172354 003100 CMP 

3599 020634 101744 BLOS 

3600 020636 004737 020064 50S: JSR 

3601 020642 000241 CLC 

3602 020644 000403 BR 

3603 020646 004737 020064 SSS: JSR 

3604 020652 000261 SEC 

3605 020654 000207 60S: RTS 
3606 
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SEO 90 



R1 .ERRLO 


SAVE LOU ORDER IN ERROR 


R3,EXPD 


SAVE EXPD FOR ERROR REPORT 


(R4),RECV , 


SAVE RECV FOR ERROR REPORT 


50S 




f2,Kl 


UPDATE NON PAR6 ADDRESS 


RO 


;MAKE IT DOUBLE PRECISION ADD 


f2«R4 


'UPDATE PAR FORMAT ADDRESS 


R4, #160000 


;END OF PAR6 MAPPING AREA? 


30> 


;BR if no 


f20000«R4 


iBACKUP INTO PAR6 MAPPING BEGIN 


Jll A JIM ff A A A^ 

f200*8ffKlPAR6 


.AAffttiV UKA AifM* ^M Am A^m b. 'kAM 

; POINT TO NEXT 4K BLOCK >28K. 


9ffKIrARo«KTPL(i 


;cND OF ncnORY? 


30$ 


:BR IF NO 


PC.KTOFP 


;TURN OFF MEMORY HAPPING 




;SET FAILURE 


60S 




PC.KTOFF 


ItURN OFF MEMORY MAPPING 




;SET SUCCESS 


PC 
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3608 
3609 
3610 
3611 
3612 
3613 
36U 
3615 
3616 
3617 
3618 
3619 
3620 
3621 
3622 
3623 
362A 
3625 
3626 
3627 

3628 020656 

3629 020656 
020656 

3630 020660 

3631 020662 

3632 020664 

3633 020666 

3634 020670 

3635 020672 

3636 020676 

3637 020700 

3638 020702 

3639 020704 

3640 020706 

3641 020710 

3642 020712 
020712 

3643 020714 
3644 
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.SBTTL REGSAV - SAVE R1-RS W STACK 
ROUTINE TO 

SAVE R1 THROUGH R5 JN THE STACK 

CALLING SEQUENCE: 

JSR R5«REGSAV 

THIS IS A COOROUTINE WHICH TRANSFER CONTROL BACK TO 
THE CALLING ROUTINE. AT THE END OF THE CALLING ROUTINE, 
THE RTS PC RETURNS CONTROL TO THIS ROUTINE TO RESTORE 
REGISTERS. 

THIS ROUTINE SHOULD ONLY BE CALLED FROM ROUTINES UHKH ARE 
CALLED VIA A JSR PC INSTRUCTION 



SCO 91 



104422 
010446 
010346 
010246 
010146 
010546 

016605 000012 

004736 

012601 

012602 

012603 

012604 

012605 

104422 
000207 



REGSAV: 



BREAK 




TRAP 


CSBRK 


NOV 


R4,-(SP) 


NOV 


R3,-(SP) 


NOV 


R2,-(SP) 


NOV 


RI.-(SP) 


NOV 


R5,-<SP) 


NOV 


10.(SP),RS 


JSR 


PC.a(SP)* 


NOV 


(SP)*.R1 


NOV 


(SP}««R2 


NOV 


(SP)«,R3 


NOV 


(SP)*,R4 


NOV 


(SP)*,R5 


BREAK 




TRAP 


CSBRK 


RTS 


PC 



;LOOK FOR CNTL C 



;LOOK FOR CNTL C 



CZTUUAO TU80 FRONT END PRT A HACRO HI 200 
GETPAT • GET 8 BIT PATTERN FROM OPERATOR 



3646 
5647 
3648 
3649 
3650 
3651 
3652 
3653 
36S4 
365S 
3656 
3657 
3658 
3659 
3660 
3661 
3662 
3663 
3664 

3665 020716 

3666 020716 

3667 020722 
020722 
020724 
020726 
020730 
020732 
020734 
020736 
020740 
020742 

3668 020742 
020742 

3669 020744 

3670 020750 
3671 

3672 
3673 
3674 
3675 

3676 020752 

3677 020754 
5678 
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.SBTTL GETPAT - GET 8 BIT PATTERN FROM OPERATOR 



104443 
000406 
020752 
000022 
020754 
000377 
000000 
000377 



103367 

013700 020752 
000207 



ROUTINE TO REQUEST AN 8 BIT DATA PATTERN FROM THE OPERATOR 
INPUTS: 

NONE. 
OUTPUTS: 

RO OCTAL NUMBER FROM THE OPERATOR 
CALLING SEQUENCE: 

JSR PC .GETPAT 



GETPAT:: 
IS: 



10000S: 



SAVREG :SAVE THE GENERAL REGISTERS 

6MANID DATASC,PATDAT.0,377.0.377,N0 

TRAP CSGNAN 

BR 10000$ 

.WORD PATDAT 

.WORD TSCOOE 

.WORD OATASC 

.WORD 377 

.WORD TSLOLlfl 

.WORD TSHILIN 



BNCOHPLETE U 
BCC 18 
NOV PATOAT.RO 
RTS PC 



:RETRY IF ERROR 

.'DATA PATTERN FROM OPERATOR 
.•RETURN TO CALLER 



LOCAL DATA AREA 



000000 
105 



116 



PATDAT: .WORD 0 :TENPORARV STORAGE FOR DATA 

124 DATASC: .ASCIZ 'ENTER DATA PATTERN* 
.EVEN 
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SEQ 93 



3680 

3681 

3682 

5683 

3684 

3685 

3686 

3687 

3688 

3689 

3690 

3691 

3692 

3693 

3694 

3695 

3696 



3697 
3698 



3699 

3700 
3701 
3702 
3703 



3704 
3705 
3706 
3707 
3708 
3709 
3710 



021000 
021000 
021004 
021006 
021010 
021012 
021014 
021014 
021016 
021022 
021026 
021030 
021032 
021036 
021040 
021040 
021042 
021044 
021046 
021 OSO 
021052 
021054 
021056 
021060 
021060 
021060 
021062 
021066 
021070 
021072 
021072 
021076 
021102 
021104 
021106 
0211)2 
021114 
021116 
021164 
021171 



010002 
010203 
005713 
001412 

012346 
012746 
012746 
010600 
104417 
062706 
000764 

104443 
000406 
021220 
000042 
021171 
177777 
000000 
177777 



103352 
013700 
020001 
101411 

012746 
012746 
010600 
104417 
062706 
000735 
000207 
045 
045 
105 



.SBTTi. GETSEL - ISSUE MENU AND GET OPERATOR RESPONSE 



021164 
000002 



000006 



021220 



021116 
000001 



000004 



116 
116 
156 



ROUTINE TO ISSUE A NENU AND GET 
THE OPERATOR'S RESPONSE. 
INPUTS: 

ADDRESS OF ASCIZ STRING OF NENU 
NAXIHUN ALLOWABLE OPERATOR RESPONSE 



RO 
R1 

OUTPUTS: 
RO 



NUMBER OF THE OPERATOR'S SELECTION 



GETSEL: 



IS: 
2S: 



3$: 



10001$: 



SAVREG 

MOV 

MOV 

TST 

BEQ 

PRINTF 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

BR 

GNANID 

TRAP 

BR 

.yORD 
.UORD 
.UORO 
.yORD 
.WORD 
.UORD 



R0.R2 
R2.R3 
(R3) 
3$ 

fSELASC.(R3)« 
(R3)*.-(SP) 
fSELASC«-(SP) 
#2.-(SP) 
SP«RO 
CSPNTF 
#6.SP 
2% 

MENASC »MENRES.D«-1 «0,-l .NO 

CSGMAN 

10001$ 

HENRES 

T$CODE 

MENASC 

-1 

TSLOLIM 
T$HIi IM 



;SAVE GENERAL REGIS ERS 
;SAVE THE MENU ADDRESS 
; START OF MENU STRING 
;END OF ASCII ? 

.•BRANCH IF ALL LINES DISPLAYED 
.-DISPLAY THE MENU 



BNCOMPLETE 1$ ; RETRY IF ERROR 



:GET THE OPERATOR'S REPLY 
.-COMPARE TO MAXIMUM ALLOWED 
; BRANCH IF OK 
.-DISPLAY ERROR MESSAGE 



021220 000000 



5$: 

045 HENERR: 
045 SELASC: 
164 MENASC: 

KENRES: 



BCC 1$ 

NOV MENRES.RO 

CMP R0.R1 

BLOS 5$ 

PRINTF ffNENERR 

MOV fHENERR.-(SP) 

MOV ff1,-(SP) 

MOV SP.RO 

TRAP C$PNTF 

ADD f4.SP 

BR 1$ ;RETRY 

RTS PC .-RETURN TO CALLER 

.ASCIZ 'INU *** Menu Stltctlon Too Large •••* 

.ASCIZ *SNtT* 

.ASCIZ *Enttr Htnu Seltctlon: ' 
.EVEN 



.WORD 



0 8 
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SEQ 94 



3712 

3713 

37U 

3715 

3716 

3717 

3718 

3719 

3720 

3721 

3722 

3725 

3724 

3725 

3726 

3727 

3728 

3729 

3730 

3731 

3732 

3753 

3734 021222 

5755 021222 

5756 021226 
021226 

3757 021250 
021250 

5758 021252 
021252 
021256 
021242 
021244 
021246 

5759 021252 
5740 021254 
5741 

5742 021256 
5745 



.SBTTL CHKHAN • CHECK MANUAL INTERVENTION LEGALITY 

♦ 

ROUTINE TO TEST 'OR MANUAL INTERVENTION LEGALITY. 
INPUT: 

NONE. 

OUTPUT : 



CARRY 0 

1 

SIDE EFFECTS: 



MANUAL INTERVENTION NOT ALLOWED 
MANUAL INTERVENTION IS OK 



A MESSAGE IS DISPLAYED WARNING THAT TEST IS 
NO? EXECUTED IF MANUAL INTERVENTION !S NOT 
ALLOWED. 



CHKKAN: 



104450 
105411 

012746 021256 
012746 000001 
010600 
104417 

062706 000004 

000241 

000207 



SAVRE6 
MANUAL 

TRAP CSMANI 
BCONPLETE It 
BCS 1$ 
PRINTF fNOMAN 
MOV fNOMAN,-($P) 
#1.-(SP) 
SP.RO 
CtPNTF 
i4,SP 



.•SAVE THE REGISTERS 

:SEE IF MANUAL INTERVENTION OK 

.•BRANCH IF ALLOWED 

.•PRINT THE WARNING MESSAGE 



045 



116 



It: 

045 NOMAN: 



MOV 
MOV 
TRAP 
ADD 

CLC 
RTS 



PC 



; CLEAR CARRY FOR ERROR 
: RE TURN 



.ASCIZ 
•tvcn 



*INSA Manu«l Intervention not AUoMcd - Test Aborted 



E 8 
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SEQ 95 



3745 
3746 
3747 
3748 
3749 

5750 
*3751 
5752 
5755 
5754 
5755 
5756 
3757 
5758 
5759 
5760 
5761 
5762 
5763 



021552 
021552 
021554 
021560 
021566 
021572 
021400 
021404 
021412 
021414 
021416 
021422 
021426 
021452 
021456 



104451 
010057 
062757 
011057 
162757 
015702 
162757 
005502 
001575 
015700 
065700 
162700 
010057 
000207 



.SBTTL ENVIRN - SETUP FREE DIAGNOSTIC SPACE 
SUBROUTINE TO SET-UP VARIOUS ENVIRONMENTAL PARAMETERS. 



ENVIRN: 



005072 

000002 005072 
005074 

000004 005074 
002012 

000007 005074 



003072 
005074 
000002 
005076 



101: 



NENORV 
TRAP 

mv 

ADD 
MOV 
SUB 
MOV 
SUB 
DEC 
BNE 
MOV 
ADD 
SUB 
NOV 
RTS 



RO 

CSMErf 

RO,FREE 

#2, FREE 

(RO),FRESIZ 

«4JRESIZ 

LSUNIT,R2 

f7.FRESIZ 

R2 

10S 

FREE.RO 

FRESIZ.RO 

#2«R0 

RO.FREEHI 

PC 



: GET 1ST FREE ADDRESS... 

:...AND WORD COUNT. 

: GET NUMBER OF UNITS 

; TAKE AWAY 7 WORDS PER UNIT 



GET FIRST FREE ADDRESS 

POINT TO LAST FREE ADDRESS 

BACKUP 1 WORD 

STORE LAST FREE ADDRESS 

RETURN 
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SEO 96 



5765 
5766 
5767 
5766 
5769 
5770 
5771 

5772 02U40 
5775 02U40 

5774 02U44 

5775 02US0 

5776 021456 

5777 021460 

5778 021464 

5779 021472 

5780 021476 

5781 021500 

5782 0?1506 
5785 021514 

5784 021520 

5785 021522 

5786 021526 

5787 021554 

5788 021556 
5799 021542 

5790 021546 

5791 021550 

5792 021554 
5795 

5794 021556 

5795 021562 
5796 

5797 021 >64 
5798 

5799 021570 

5800 

5809 

5810 

5816 

5817 

5818 021572 
021572 

5819 021572 

5820 021602 
5821 



005057 
005057 
025727 
101444 
015700 
012757 
005757 
000240 
015757 
042757 
010057 
005000 
012701 
012761 
010021 
062700 
020027 
001567 
012741 
000405 

012716 
000002 

010057 

000207 



.SBTTL KTlNlT - SETUP Kill MEMORY MANAGEMENT REGISTERS 



ROUTINE TO INIT rT-11 



005100 
005102 
002120 

000004 
021556 
177572 

002120 
000177 
000004 

172340 
077406 

000200 
002000 

177600 



021564 
000004 



KTINIT 



001577 
000004 



005100 
005100 



177740 IS: 



CLR 

CLR 

CMP 

BIOS 

MOV 

MOV 

TST 

NOP 

MOV 

BIC 

MOV 

CLR 

MOV 

MOV 

MOV 

ADD 

CMP 



28: 

6»: 
9$: 



MOV 



MOV 

RTl 

MOV 
RTS 



KTFLG 
KTENABLE 
LSHlME.f1577 
9S 

8fERRVEC«R0 

f2S.8fERRVEC 

ifSRO 

LtMIME. KTFLG 
f177,KTFLG 
R0.8#ERRVEC 
RO 

fKIPAR0,R1 

f77406.-40(R1) 

R0.(R1)« 

f200.RO 

R0.f2000 

1$ 

f177600,-(R1) 
9$ 

f6S,(SP) 



RO.afERRVEC 
PC 



.IIF DF ONEFILE. 



INIT >28K MEMORY FLAG 
INIT TEST >28K FLAG 
GOT ENOUGH MEMORY 028K)? 
NO. 

SAVE OLD ERR VEC PTR. 
SET ERR VEC PTR. 
GOT KT11? 

(TRAP IF NO). 
YES. SET KT FLAG. 

RESTORE OLD ERR VEC PTR. 

RO » AR DATA. 

R1 « Ki REGS PTR. 

SET DESCRIPTOR REG. 

iET KIPAR REG. 

BUMP AR DATA BY "4K". 

AT "I/O**? 

NO. 

YES. SET KTPAR7 FOR I/O. 



SET UP RETURN 

RTl TO NEXT LOCATION 

RESTORE OLD ERR VEC PTR. 



.PAGE 



177777 177777 



.S8TTL PROTECTION TABLE 
BGNPROT 

LtPROT : * 

177777 ".UORD -1, -1. -1, -1 .NO DEVICE PROTECTION REQUIRED. 

ENDPROT 



CrUWAO TuaO FRONT END PRT A 
INITIALIZE SECTION 



3823 
382A 
382 S 
3826 
3«27 
3828 
3829 
3830 
3831 
3832 
3833 
3S34 
363S 

3836 021602 
021602 
3S37 021602 

3838 021602 012737 

3839 021610 00S037 
38^0 021 6U 005037 

3841 021620 00S0S7 

3842 021624 
021624 012700 
021630 104447 

3843 021632 
021632 103023 

3844 021654 023737 

3845 021642 103073 

3846 021644 005737 

3847 021650 100475 

3848 021652 013701 

3849 021656 006301 

3850 021660 005761 

3851 021664 001521 

3852 021666 032761 

3853 021674 041063 

3854 021676 
021676 104432 
021700 000430 

3855 021702 
021702 012700 
021706 104447 

3856 021710 
021710 105055 

3857 021712 
021712 012700 
021716 104447 

3858 021720 
021720 105404 

3859 021722 
021722 012700 
021726 104447 

3860 021730 
021750 105054 

3861 021732 

3862 021752 
021752 
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.SBTTL NITIALIZE SECTION 



SEO 97 



THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 
AT THE BEGINNING Of EACH PASS. 

IF "START" OR "RESTART", SET nuiCK-PASS FLAG AND BUS-INIT. 
IF "CONTINUE". NOTHING IS REQUIRED. 



INSERT TEMPORARY JUMP TO DOT 



005672 002146 
005106 
005102 
002246 

000056 



002150 002012 
005060 
002150 
005150 

040000 005150 



LSINIT:: 
40«: 



BGNINIT 



000055 



000040 



000057 



1$ 



2S: 



NOV fEPRTI .EPRTSW 

CLR S IF LAG 

CLR KTENABLE 

CLR RAHSIZ 

READEF fEF. CONTINUE 

HOV fEF .C0NTINUE.ro 

TRAP CtREFG 
BNC0F1PLETE IS 

BCC 1$ 

CMP UNITN.LtUNIT 

BHIS 4S 

TST DUFL6 

BNI NXTU 

HOV UNITN.R1 

ASL R1 

TST ERTABL(RI) 

BEQ SETU 

BIT fBIT14.ERTABL(R1 

BNE NXTU 

EXIT INIT 

TRAP CSEXIT 

.WORD L10050-. 

READEF fEF. NEW 

HOV fCF.NEU.RO 

TRAP CtREFG 
BNCOHPLETl NXTU 

BCC NJcTU 

READEF fEF. START 

HOV fEF. START. RO 

TRAP CSREFG 
BCOHPLETE 2S 

BCS 2S 

READEF fCF .RESTART 

HOV fEF .RESTART.ro 

TRAP CSREFG 
BNCOHPLETE 51S 

BCC 51S 



:SET UP PRIMARY MESSAGE FOR REPLACEMENT 

; CLEAR "SOFT INIT" FLAG 

.CLEAR TEST ABOVE 28K FLAG 

.CLEAR RAM SIZE FOR RANEflR ROUTINE 



.-UNIT IN RANGE? 
;BR IF NO. 
.DROPPED UNIT? 
;BR IF YES 



} .DROPPED? 

:D0 NOTHING IF "CONTINUE* 



;TARE NEXT UNIT IF NOT NEW t'ASS. 



104455 

005017 002162 



BRESET 
TRAP 

CLR 



CSRESET 
TSTCNT 



;1ST PASS. BUS-INIT... 
;BUS RESET. 

:NUMBER OF TESTS RUM IN PASS 



C2TUUA0 TU80 FRONT END PRT A NACRO N1200 29-MAR-S3 13:24 PAGE 64 
INITIALIZE SECTION 



5S64 021740 


005037 


002170 






CLR 


fATfLG 


3865 021744 


000406 








BR 


19$ 


3866 














3867 021746 


012746 


000540 






NOV 


#?40.-(SP) 


3868 021752 


012746 


021766 






NOV 


#20».-(SP) 


3869 021756 


000137 


046040 






JNP 


O.OOT 


3870 021762 


005057 


005552 




19t: 


CLR 


SKIPT 


3871 021766 








20$: 






3872 021766 


012737 


177777 


002152 




NOV 


f-1 .OVP 


3873 021774 


004737 


021552 






JSR 


PCENVIRN 


3874 022000 


004737 


021440 






JSR 


PCKTINIT 


3875 022004 


012700 


005150 






NOV 


ffERTABL.RC 


3876 022010 


005020 






50$: 


CLR 


(R0)» 


3877 022012 


020027 


005550 






CHP 


RO.fERTABE 


3878 022016 


103774 








BLO 


50$ 


3879 022020 


000404 








BR 


4$ 


3880 022022 


005037 


002152 




51$: 


CLR 


OVP 


3881 022026 


000157 


022076 






JNP 


PASRPT 


3882 














3883 022032 








4$: 






3884 022032 


012757 


177777 


002150 


NEUPAS: 


NOV 


f-1. UNI TN 


3885 022040 


005057 


002166 






CLR 


DEVCNT 


3886 022044 








NXTU: 


BREAK 




022044 


104422 








TRAP 


C$BRK 


3887 022046 


005237 


002150 






INC 


UNITN 


3888 022052 


023737 


002150 


002012 




CNP 


UNITN,L$UNIT 


3889 022060 


103423 








BLO 


SETU 


3890 022062 


012757 


177777 


005060 




NOV 


f-I.OUFLG 


3891 022070 


000401 








BR 


11$ 


3892 022072 










DOCLN 




022072 


104444 








TRAP 


C$OCLN 


3893 022074 


000240 






11$: 


NOP 




3894 022076 








PASRPT: 






3895 022076 


025727 


002012 


000001 




CNP 


L$UNlT,f1 


3896 022104 


101752 








BLOS 


NEUPAS 


3897 022106 


005757 


002166 






TST 


DEVCNT 


3898 022112 


001747 








BEQ 


NEUPAS 


3899 022114 










RFLA6S 


RO 


022114 


104421 








TRAP 


CSRFLA 


3900 022116 


052700 


000100 






BIT 


fISR.RO 


3901 022122 


001545 








BNE 


NEUPAS 


3902 














3903 022124 










DORPT 




022124 


104424 








TRAP 


CSDRPT 


3904 022126 


000741 








BR 


NEUPAS 


3905 022130 








10$: 






3906 












UNITN.RO 


3907 022130 








SETU: 


6PHARD 


022130 


015700 


002150 






NOV 


UNITH.RO 


022134 


104442 








TRAP 


C$6PNIID 


3908 022136 










BNCONPLETE NKTU 


022136 


105542 








BCC 


NXTU 


3909 022140 


005057 


003060 






CLR 


DUFLG 


3910 022144 


005257 


002166 






INC 


DEVCNT 


3911 022150 


012001 








NOV 


(RO)^.RI 


3912 022152 


010157 


002154 






NOV 


R1.CSRA0DR 

















;RESET FLAG TO ZERO "FATAL ERRORS" 
;BR. IF TNE FLAG IS NOT SET 
:(N0 DEBUGGER ETC.) 

.'RETURN TO DEBUGGER 

;;BBENTER THE DEBUGGER 

: CLEAR THE SUBTEST "SKIPPER" 

QUICK VERIFY... 
;SET ENVIRONHENT. 
INITIALIZE KT NENORV NANAGENENT 

: CLEAR THE ERROR TABLE 



:G0 REPORT THE STATUS 



:INIT UNIT NUNBER... 

;CLEAR COUNT OF DEVICES RUNNING 



:...AND SET NEXT UNIT NUNBER. 



.ABORT. NO NORE UNITS. 



:HOU NANY UNITS SELECTED? 
:BR IF ONLY 1 
;ARE ANY STILL RUNNING? 
:BR IF NO 



.'SHOULD UE PRINT STATISTICS 
:BR IF NO 



:GET UNIT N P-TABLE POINTER. 

:BR IF UNIT NOT AVAILABLE. 

.CLEAR "DROPPED" FLAG. 

;GET 1ST REGISTER ADDRESS. 

:ADDRESS OF REGISTERS OF UNIT UNDER TEST 



I 8 



CZTUUAO TU80 FKONT END PRT A 
INITIALIZE SECTION 
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3914 0221 56 

391 5 022160 

3916 022162 

3917 022166 

3918 022172 

3919 022176 
3920 

3921 022200 

3922 

3923 

3924 

3925 

3926 

3927 

3928 

3929 022200 

3930 022204 

3931 022206 

3932 022214 

3933 022220 

3934 022226 

3935 022230 
022230 

3936 022232 

3937 022236 

3938 022240 
022240 
022244 
0222S0 
022254 
022256 
022260 

3939 022264 

3940 022264 

3941 022270 

3942 022274 

3943 022276 

3944 022302 

3945 022306 

3946 022310 

3947 022314 

3948 022322 
3949 

3950 
3951 

3952 022322 
022322 
022326 

3953 0223S0 
0223S0 
0223S0 

3954 

3955 022332 
3956 



012001 
011002 
010237 
010137 
012721 
C10221 



013701 
006301 
052761 
005037 
023727 
101416 

104421 
032700 
001412 

013746 
012746 
012746 
010600 
104417 
062706 

005037 
013701 
010102 
062702 
004737 
103005 
010137 
012737 



012700 
104441 



104411 
045 



002160 
002156 
016706 



NOV 


(II0)«,II1 


;6ET VECTOR ADDRESS. 


NOV 


(l(0).R2 


:6ET INTERRUPT PRIORITY 


NOV 


R2JPRI 


;SET INTERRUPT PRIORITY. 


NOV 


RMVEC 


;SET INTERRUPT VECTOR POINTER... 


NOV 


flNii),(R1)« 


VECTOR... 
;...AND PRIORITY. 


NOV 


R2.(R1)* 



It: 



TST 
BEQ 



QVP 
5$ 



;1$T PASS ?? 

:N0, SKIP THE PASS 1 STUFF. 



002150 




NOV 






ASL 


100000 


AAV 4 VA 

005130 


BIS 






n o 


002012 


000001 


CNP 






BLOS 






RFLA6S 






TRAP 


001000 




BIT 






BEQ 






PRINTF 


002150 




NOV 


022332 




NOV 


000002 




NOV 






NOV 






TRAP 


000006 




ADD 




lot: 




003062 




CLR 


002154 




NOV 






NOV 


000000 




ADD 


017114 




JSR 






BCC 


003062 




NOV 


177777 


003060 


NOV 



1ST PASS. CHECK THAT DEVICE ADDRESSES ARE VALID, AND 
THAT THE DISPLAY STATUS IS PROPERLY INITIALIZED. 

UNITN.R1 
R1 

f8IT15.ERTABL(R1) ;SAY DEVICE RUNNING 



2t: 



EXTA 
LtUNIT.fl 

lot 

RO 

CtRFLA 
fPNT.RO 

lot 

fPUNIT.UNITN 

UNITN.-(SP) 

fPUNlT.-(SP) 

«2.-(SP) 

SP.RO 

CtPNTf 

f6.SP 

NOOEV 

CSRADDR.R1 

R1,R2 

fTSSR,R2 

PC.XNXN 

a 

R1 .NODEV 
f-I.DUFLG 



; CLEAR ERROR EXTENSION FLAG. 
:ARE WE TESTING NULTIPLE UNITS? 
*BR IF NO. 

•YES — GET OPERATOR FLAGS. 

: SHOULD WE PRINT UNIT f? 

:BR IF NOT. 

: PRINT THE UNIT ff 



ADDRESS OF FIRST REGISTER 

START OP REGISTERS 

ADDRESS OF TSSR REGISTER 

TEST BOTH CONTROLLER REGISTERS. 

...AND BR IF ALL OK. 

FLAG DEVICE AS NON-EXISTENT 

DROP TNIS UNIT. 



000000 



;FINALLV, SET CPU PRIORITY AND WE'RE DONE, 
it: 



L10030: 



SETPRI fPRIOO 
NOV fPRIOO.RO 
TRAP CtSPRI 
ENDINIT 

TRAP CtlNIT 



: ENABLE INTERRUPTS. 



116 



045 



PUNIT: .ASCIZ /XNXNU< 
.EVEN 



TESTING UNIT SD2XA 



J 8 



5971 



000006 



116 



CZTUWAO TU80 FRONT END PRT A 
ADD AND DROP UNITS SECTIONS 



5958 
5959 
5960 
5961 
5962 
5965 
5964 

5965 022400 
022400 

5966 022400 010001 

5967 022402 006501 

5968 022404 052761 

5969 022412 042761 

5970 022420 
022420 010046 
022422 012746 
022426 012746 
022452 010600 
022454 104417 
022456 062706 
022442 

022442 000167 
022444 000026 
5972 022446 045 
5975 
5974 

5975 022474 
022474 

022474 104452 

5976 
5977 
5978 
5979 
5980 
5981 
5982 
5985 
5984 
5985 
5986 

5987 022476 
022476 

5988 022476 012757 
5919 022504 010001 

5990 022506 0067^1 

5991 022510 0527^1 

5992 022516 000240 
5995 022524 

022524 010046 
022526 012746 
022552 012746 
022556 010600 
022540 104417 
022542 062706 
5994 022546 

022546 000167 
022550 000050 
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SEQ 100 



.S8TTL ADD AND DROP UNITS SECTIONS 



THE ADO-UNIT SEfTION CONTAINS THE CODING THAT CAUSES A DEVICE 
TO BE (A) ADDED Tu THE TEST LIST FOR THE FIRST TINE, 
OR (B) RE-INSERTED IF IT HAD BEEN PREVIOUSLY DROPPED. 



LSAU: 



100000 005150 
040000 005150 



022446 
000002 



045 IS: 



11 0051: 



BGNAU 

mv 

ASL 

BIS 

BIC 

PRINTF 

NOV 

NOV 

NOV 

NOV 

TRAP 

ADD 

EXIT 

.WORD 

.WORD 

.ASCIZ 

.EVEN 

ENDAU 

TRAP 



R0,R1 : GET UNIT TO BE ADDED (RO) 

R1 ; NAKE IT A WORD INDEX 

#100000«ERTABL(R1) ; SET THE "ACTIVE" BIT 

f40000.EIITABL(R1) ; CLEAR THE 'IDROPPED" BIT 

f1t«R0 

RO.-(SP) 

fU.-(SP) 

•2.-(SP) 

SP.RO 

CfPNTF 

«6,SP 

AU 

JtJNP 
L10051-2-. 

/INIA UNIT XDIA ADDED/ 



UNUSED. 



CSAU 



THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
TO BE REMOVED FRON THE TEST LIST. 

SUPVSR DOES THE 'CROPPING". THIS IS JUST TO TELL THE NAN. 
'IDROPPED" UNITS ARE RE-SELECTED ON OPERATOR "STA" OR "ADO" 
CONMND. OTHERWISE RENAIN INACTIVE. THE 'DISPLAY" CONNAND 
WILL PRINT ALL DROPPED UNITS, AND THE P-TABLES OF THOSE 
WHICH ARE STILL ACTIVE 

UPON ENTRY. RO CONTAINS THE UNIT TO BE DROPPED. 



177777 005060 



140000 005150 
000240 000240 



LtOU:: 



BGNOU 

NOV 
NOV 
ASL 
BIS 



240.240,240 
PRINTF fU.RO 



f-1 .DUFLG 

R0.R1 

R1 

«140000.EIITABL<R1) 



: SAY DROPPED 



022552 
000002 



000006 



NOV 

NOV 

NOV 

NOV 

TRAP 

ADD 

EXIT 

.WORD 

.WORD 



RO.-(SP) 
#1$.-(SP) 
#2.-(SP) 
SP.RO 
CtPNTF 
f6.SP 
DU 

JtJNP 

V1003?-?- 



CZTUUAO TU80 FRONT END PRT A 
ADD AND DROP UNITS SECTIONS 



K 8 
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SEQ 101 



399S 022552 
3996 

3997 022602 
022602 
022602 

3998 
3999 
4000 



045 



104453 



116 



4001 022604 






022604 






4002 022604 


01270? 




4003 022610 


004737 


016740 


4004 022614 


103420 




4005 022616 






022616 


012727 


000372 


022622 


000000 


022624 


013727 


002116 


022630 


000000 




022632 


005367 


177772 


022636 


001375 




022640 


005367 


177756 


022644 


001367 




4006 022646 


005303 




4007 022650 


001357 




4008 022652 


004737 


017772 


4009 022656 




4010 022656 






022656 






022656 


104461 





045 IS: 



LI 0032: 



.ASCIZ /INSA UNIT IDIA DROPPED/ 

.EVEN 

ENDDU 

TRAP CIDU 



AUTO-DROP CODE SECTION. 



LSAUTO: : 
10$: 



20$: 
LI 0033: 



BGNAUTO 

'nov 

JSR 
BCS 
DELAY 

my 

.WORD 
NOV 
.UORD 
DEC 
BNE 
DEC 
BNE 
DEC 
BNE 
JSR 

ENOAUTO 



f360.«R3 
PC.MAITF 
20$ 
250. 

f250..(PC)t 
0 

L$DLy,(PC)* 
0 

-6(PC) 
.-4 

-22<PC) 
.-20 
R3 
10$ 

PCCKDROP 



.•ENOUGH TIME FOR 2400* REEL TO REWIND 
;UAIT FOR SSR TO SET 
.•LEAVE WHEN SSR IS SET 
;WAIT FOR .25 SECONDS 



;BUNP COUNTER DOWN 

.•KEEP GOING 

:TRy AND DROP UNIT 

; UNUSED. 



TRAP C$AUTO 



I a 



CZTUUAO TUftO FRONT END PRT A MACRO N1200 
CLEAN-UP AND REPORT CODING SECTIONS 



4012 
4013 
4014 
4015 
4016 
4017 
4018 

4019 022660 
022660 

4020 022660 

4021 022664 
4022 

4023 

4024 022666 

4025 022674 

4026 022700 

4027 022700 
022700 
022700 

4028 
4029 
4030 
4031 

4032 022702 
022702 

4033 022702 
022702 
022706 
022712 
0227U 
022716 

4034 022722 

4035 022724 

4036 022726 

4037 022730 

4038 022734 

4039 022736 

4040 022740 

4041 022742 

4042 022744 

4043 022750 

4044 022752 

4045 022756 
022756 
022760 
022762 
022766 
022772 
022774 
022776 

4046 023002 

4047 023004 

4048 023010 

4049 023012 
023012 
02S0U 
023020 



005737 
100405 



012765 
004737 



104412 



012746 
012746 
010600 
104416 
062706 
010246 
010346 
010446 
012704 
005003 
011402 
001467 
100066 
032702 
001015 
042702 

010246 
010346 
012746 
012746 
010600 
104416 
062706 
000446 
020227 
001012 

010346 
012746 
012746 
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.SSTTL CLEAN-UP AND REPORT CODING SECTIONS 



SEQ 10^ 



THE CLEANUP CODING SECTION CONTAINS THE CODING THAT 
EXECUTED AT THE END OF EACH PASS (OR SUB-PASS). 
USE TO RETURN DEVICE UNDER TEST TO A NEUTRAL STATE. 



IS 



003060 



000000 
016740 



B6NCLN 
LSCLEAN:: 

TST DUFLG 
BNl 1$ 



000000 



;"DROPPED" FLAG IS SET ON... 
;...AND GROSS CONTROLLER FAULT... 
DON'T TRY TO XCT CLEANUP CODE. 

:D0 SOFT INir 



NOV «0,TSSR(R5) 

JSR PC.VAITF 
1$: 

2$: ENDCLN 
LI 0034: 

TRAP CSCLEAN 

THE REPORT CODING SECTION CONTAINS THE 

"PRINTS" CALLS THAT GENERATE STATISTICAL REPORTS. 





B6NRPT 








LSRPT:: 








PRINTS 


fDEVSUN 




023144 


NOV 


fDEVSUN«-(SP) 




000001 


NOV 


fl.-(SP) 






NOV 


SP.RO 






TRAP 


CSPNTS 




000004 


ADD 


f4.SP 






NOV 


R2.-(SP) 






NOV 


R3.-(SP) 






NOV 


R4.-(SP> 




003130 


NOV 


fERTA6L.R4 


: GET START OF ERROR TABLE. 




CLR 


R3 


; CLEAR UNIT NUHBER 




1$: NOV 


(R4).R2 


; GET ERROR TABLE ENTRY t TEST IT. 




8E0 


4» 


; ZERO If UNIT NOT RUN 




BPL 


4$ 




040000 


BIT 


fBIT14.R2 


; HAS UNIT DROPPED? 




BNE 


2$ 


: BR IF YES 


170000 


BIC 


f*C7777.R2 


; GET ERROR COUNT FIELD 




PRINTS 


fDEV0NL.R5,R2 


: PRINT 




NOV 


R2.-(SP) 






NOV 


R5,-(SP) 




023201 


NOV 


mV0NL,-(SP> 




000003 


NOV 


f3.-<SP) 






NOV 


SP«RO 






TRAP 


CSPNTS 




000010 


ADD 


flO.SP 






BB 


4$ 




160000 


2$: CNP 
BNE 


R2.i160000 


: HAS UNIT NON-EXISTENT? 




3$ 


: BR IF NO 




PRINTS 


fDEVNXR,R3 






NOV 


R3.-(SP) 




023251 


NOV 


fOEVNXR,-(SP) 




000002 


NOV 


f2,-(SP) 





CZTUUAO YU80 FROMT END PRT A MACRO HI 200 
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023024 
023026 
023030 
A050 023034 

4051 023036 

4052 023042 

4053 023044 
023044 
023046 
023052 
023056 
023060 
023062 

4054 023066 

4055 023070 

4056 023074 
023074 
023076 
023100 
023104 
023110 
023112 
023114 

4057 023120 

4058 023124 

4059 023126 

4060 023132 

4061 023134 

4062 023136 

4063 023140 

4064 023142 
023142 
023142 

4065 
4066 

4067 023144 

4068 023201 

4069 023251 

4070 023333 

4071 023414 
4072 

4075 
4082 
4088 
4096 



n 8 
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SEO 103 



010600 






NOV 


SP.RO 


104416 






TRAP 


CtPNTS 


062706 


000006 




ADD 


ff6,SP 








BR 


4* 


020227 


160001 


3t: 


CNP 


R2, #160001 


001012 






BNE 


VAC 

30» 








PRINTS 


fDEVNRD,R3 


010346 






NOV 


R5,-(5P) 




023333 




PwV 


ffDEVNRD>-(SP) 


0l2r40 


AAAAA9 
000002 




NOV 


fZ,*($P) 


OlOoOv 






NOV 


B BA 

SP*RO 








TRAP 


CvPNTS 


UOcrUO 


AAAAAA 




ADP 


CB 


n/iA/,i£. 
UW* I* 






BR 


*• 


U*c rOc 


1 VAAAA 


30*: 


Die 


«*rT7TT B9 

V \ftff,nc 








BB IkiTC 


ABCilBBA BV B9 

»vcVDRO(R3«R2 


U1Uc*0 








B9 _fCBt 

Rc»"i5rl 








nov 


bv ./cb% 
R3,-i5Pl 


U1cr*0 


0c3*»l* 




MAU 

WOV 


BBCUBBA — fCa\ 

•PcVwRO»-l»r J 


VtCf'tQ 


AAAAAT 
UVUvU3 




NOV 


#3#"l5r/ 


V1U0VU 






■AU 

wov 


CB BA 


1U**l1D 






TBAD 




UOcrUO 


AAAflin 




ADO 


flO.SP 


UOcrU* 


VWWlfl9 
JVWUc 




ABB 


B9 BA 








tur 
INL 


BT 

R3 


09(U97 






CMP 


t»*»»BCI« 1 AOC 


103701 






BLO 


IS 


012604 






NOV 


(SP)*«R4 


012603 






NOV 


(SP)*,R3 


012602 






NOV 


(SP)«,R2 








ENDRPT 






L100SS: 






104425 






TRAP 


CSRPT 



; UAS UNIT NOT READY AT STARTUP? 
: BR IF NO. 



; UNUSED. 



045 


116 


045 


DEVSUN: 


.ASCIZ 


/XNZADEVICE STATUS SUHNARY:XN/ 


045 


101 


040 


OEVONL: 


.ASCIZ 


/lA 


UNIT XD3XA 


ONLINE. ERRORS « XDXN/ 


045 


101 


040 


DEVNXR: 


.ASCII 


/lA 


UNIT I03XA 


DROPPED, NON-EXISTENT REGISTERXN/ 


045 


101 


040 


DEVNRD; 


.ASCIZ 


/XA 


UNIT XD3XA 


DROPPED, NOT READY AT STARTUPXN/ 


045 


101 


040 


DEVDRO: 


.ASCIZ 


/XA 


UNIT XDSXA 


DROPPED. ERRORS s XDXN/ 










.EVEN 









N 8 



CZTUVAO TU80 FRONT END PRT A 
TEST 1 : BUS RESET TEST 



4098 

4099 

4100 

4101 

4102 

4105 

4104 

4105 

4106 

4107 

4108 

4109 

4110 

4111 

4112 

4113 

4114 

4115 

4116 

4117 

4118 

4119 

4120 

4121 

4122 

4123 

4124 

4125 

4126 

4127 

4128 

4129 

4130 

4131 

4132 

4133 

4134 

4135 

4136 

4137 023464 
023464 

4138 023464 

4139 023470 

4140 023476 

4145 023502 

4146 023506 

4147 023S12 

4148 023520 

4149 023520 



MACRO mZOO 29-flAR-83 13:24 PAGE 67 



.SBTTL TEST 1: BUS RESET TEST 



SEQ IDA 



4150 
4151 023522 
023522 
023522 

4152 

4153 023524 
023524 

4154 023S26 



005037 002170 

012737 005672 002146 

005037 003100 

012700 023700 

004737 017226 

012737 000005 002164 

005003 



104402 



104433 

004737 016740 



T1L00P: 



THIS TES^ VERIFIES THAT THE DV132 NODULE'S DEVICE REGISTERS ARE 
ACCESSIBLE ON THE BUS (SUBTEST 1) AND THEN CHECKS THAT THE 
BUILT-IN INITIALIZATION SELF-TEST HI CROD I AGNOSTIC DID NOT FIND 
ANY BASIC PROBLEMS tN THE MODULE. AREAS OF LOGIC TESTED BY THE 
SELF-TEST SEQUENCE A^^c AS FOLLOUS: ROM AND PIPELINE REGISTER. 
SEQUENCER, INTERNAL BUSES. 2901 MICROPROCESSOR. AND. RAM. THIS 
TEST INITIALIZES THE CONTROLLER BY ISSUING THE BUS INIT SIGNAL 
VIA A RESET INSTRUCTION. OR BY WRITING INTO THE TSSR REGISTER. 
UAITS A PERIOD OF TIME (TO ALLOU THE CONTROLLER'S INITIALIZATION 
HI CROO I AGNOSTIC SEQUENCE TO BE COMPLETED). AND THEN CHECKS THE 
CONTENTS OF THE TSSR REGISTER. SUCCESSFUL INITIALIZATION IS 
INDICATED BY SUBSYSTEM READY (SSR) AND NFfD BUFFER ADDRESS (NBA) 
BITS BEING SET (1) AND ALL OTHER BITS (EXCEPT A17 AND A16 AND 
OFL. WHICH ARE IGNORED FOR THIS TESi) BEING CLEAR (0). IF THE 
CONTENTS OF TSSR ARE NOT AS EXPECTED. AN ERROR REPORT IS ISSUED 
LISTING THE EXPECTED DATA. ACTUAL DATA. AND THE DISCREPANCIES. 
THE ERROR REPORT ANALYZES THE TSSR CONTENTS AND DISCERNS AND 
REPORTS ONE OF THREE POSSIBILITIES: 



TSSR CONTENTS ARE AMBIGUOUS (ANY OF BITS 11-U ARE SET. 
OR STATES OF SSR AND SC BITS DO NOT CORRESPOND TO THE 
APPARENT ERROR CODE IN BITS 0-5): INDICATES THAT THE 
TSSR CONTENT CANNOT BE TRUSTED. INDICATES A 
CATASTROPHIC CONTROLLER MALFUNCTION. THIS IS A FATAL 
ERROR (EXECUTION IS ABORTED). FIELD ACTION WOULD BE TO 
REPLACE THE DV132. IF THE DV132 ITSELF IS BEING 
DEBUGGED. THE PROGRAM SHOULD BE RESTARTED WITH LOOP ON 
ERROR ENABLED IN ORDER TO PROBE FOR THE PROBLEM. 

SSR s 0. SC s 0 AND THE ERROR CODE IN BITS 0-5 IS IN 
THE RANGE 17-13: THIS IS A FATAL ERROR. THE ERROR 
CODE IS DECODED AND THE APPROPRIATE DESCRIPTION GIVEN. 
INDICATES THAT A SERIOUS PROBLEM EXISTS. 



BGNTST 

CLR 
MOV 
CLR 
MOV 
JSR 
MOV 

CLR 

B6NSUB 



FATFLG 

fEPRTI.EPRTSW 

KTFLG 

fTSTIID.RO 

PC.TSTSETUP 

f5..L0QPCNT 

R3 



T1 : : 

: CLEAR FATAL ERRORFLAG 
.SET UP ERROR MESSAGE SWITCH 
.-HOLD OFF KT11 

.•ASCII MESSAGE TO IDENTIFY TEST 
;D0 INITIAL TEST SETUP 
.'PERFORM 5 ITERATIONS 

:USE R3 AS FATAL ERROR FLAG 

;//////////// BEGIN SUBTEST //////////// 
T1.1: 

TRAP CtBSUB 



BRESET 

JSR PC.WAITF 



.•ISSUE A BUS RESET 
•WAIT FOR READY 



TRAP CSRESET 



CZTUVAO TU80 FRONT END PRT A 
TEST 1: BUS RESET TEST 



41 55 023S32 

41 56 023S36 

41 57 023S40 

41 58 023S44 

41 59 023SS0 

4160 02SSS2 

4164 023SS4 
023SS4 
023S56 
023S60 
023562 

4165 023564 

4166 023566 

4167 023566 
023566 
023566 

4168 



016501 000000 
010102 

042702 176277 
052702 002200 
020102 
001405 

104455 
000145 
003603 
011566 
005203 



104403 
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nOV TSSR(II5).R1 

MV R1 R2 

BIC #''C<NIAD0R!0FL>.R2 

BIS ffSR!NBA.R2 

CMP R1 .k2 

BEQ 101 

ERRDF ERRN0.SFHERR.SFFNS6 



10$: 



INC R3 
ENDSUB 



;6ET THE CONTENTS OF TSSR 

.•CONTENTS OF TSSR 

.•THESE BITS NAY BE SET 

.-READY AND NEW DATA SHOULD BE SET 

: COMPARE EXPECTED TO RECEIVED 

.•BRANCH IF COMPARE 

: REPORT A FATAL ERROR 

TRAP CtERDF 
.WORD 101 
.WORD SFHERR 
.WORD SFFMSG 
:SET THE FATAL ERROR FLAG 

;\\\\\\\\\\\\\ END SUBTEST WWWWWWN 
LI 0037: 

TRAP CtESUB 



C 9 



CZTuyAO TU80 FRONT END PRT A 
TEST 1: BUS RESET TEST 
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4170 023570 

4171 023572 

4172 023574 

4173 023600 
4174 

4175 

4176 C23602 
0236C2 
023602 

4177 

4178 023604 

4179 023610 
4190 023614 

4181 023620 

4182 023622 

4183 023626 

4184 023632 

4185 023634 

4189 023636 
023636 
023640 
023642 
023644 

4190 023646 

4191 023650 

4192 023650 
023650 
023650 

4193 
4194 

4195 023652 

4196 023654 

4197 023656 

4198 023662 

4199 023666 

4200 023670 

4201 023674 
023674 
023676 

4202 
4203 
4204 
4205 
4206 

4207 023700 
4208 

4209 023720 
023720 
023720 

4210 
4211 



005703 
001402 
004737 
005003 



104402 

005065 
004737 
016501 
010102 
042702 
052702 
020102 
00U05 

104455 
000146 
003550 
011566 
005203 



104403 



005703 
001402 
004737 
004737 
103002 
000137 

104432 
000022 



111 



104401 



017772 



20$: 



000000 
016740 
000000 

176277 
002200 



10$: 



017772 
017174 

023520 



20$: 
40$: 



TST 
BEQ 
JSR 
CLR 



B6NSUB 



CLR 
JSR 

mv 

NOV 
BIC 
BIS 
CUP 
BEQ 
ERRDF 



TST 
BEQ 
JSR 
JSR 
BCC 
J«P 
EXIT 



R3 
20$ 

PC.CKDROP 
R? 



TSSR(R5) 
PC.UAITF 
TSSR(R5),R1 
R1.R2 

ff*C<HIADDR!0FL>,R2 

fSSR!NBA.R2 

R1.R2 

10$ 

ERRN0,SFIERR,SFFNS6 



INC R3 
ENOSUB 



R3 
20$ 

PC^CKDROP 

PC.1STL00P 

40$ 

TILOOP 

TST 



156 



; LOCAL TEXT HESSAGES FOR TEST 



151 TST1ID: .ASCIZ 'Initialization* 
.EVEN 
ENOTST 



:DID UE HAVE FATAL ERROR ? 
; BRANCH IF NOT 

;G0 DROP THIS UNIT, IF ALLOWED 
.•RESET FATAL ERROR FLAG 



;//////////// BEGIN SUBTEST //////////// 
T1.2: 

TRAP CSBSUB 

.WRITE TO ISSUE A SOFT RESET 

;WAIT FOR READY TO SET 

;GET REGISTER TSSR DATA 

.•CONTENTS OF TSSR 

.THESE BITS FMY BE SET 

; READY AND NEW DATA SHOULD BE SET 

: COMPARE EXPECTED TO RECEIVED 

.'BRANCH IF COMPARE 

.•REPORT A FATAL ERROR 

TRAP C$ERDF 
.WORD 102 
.WORD SFIERR 
.WORD SFFNSG 

.•SET THE ERROR FLAG 

;\\\\\\\\\\\\\ END SUBTEST XWWWWWW 
LI 0040: 

TRAP CSESUB 



.•FATAL ERROR DETECTED ? 

.•BRANCH IF NOT 

.SEE IF TINE TO DROP UNIT 

.SHOULD WE DO ITERATIONS ? 

; BRANCH IF NOT 

;LOOP UNTIL COUNT EXPIRED 

.•ALL DONE THIS TEST 

TRAP C$EXIT 
.WORD L10036-. 



Li 0036: 

TRAP C$ETST 



CZTUUAO TU80 FRONT END PRT A 
TEST 2: RAN TEST 



4214 

4215 

4216 

4217 

4218 

4219 

4220 

4221 

4222 

4223 

4224 

4225 

4226 

4227 

4228 

4229 

4230 

4231 

4232 

4233 

4234 

4235 

4236 

4237 

4238 

4239 

4240 

4241 

4242 

4243 

4244 

4245 

4246 

4247 

4248 

4249 

42S0 

4251 

4252 

4253 

4254 

4255 

4256 

4257 

4258 

4259 

4260 

4261 



0 9 
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.SBTTL TEST 2: RAN TEST 



SEQ 107 



4262 
4263 
4264 
4265 
4266 



023722 
023722 

023722 005037 002170 
023726 012737 005672 002146 
023734 005037 003100 

023740 
023740 

023740 104402 



THIS TEST VERIFIES THAT ALL LOCATIONS OF THE RAM ON THE 0V132 
CAN PROPfRLY STORE AND READ BACK ALL DATA PATTERNS. AND THAT 
EACH RAH LOCATION IS UNIQUELY ADDRESSED (I.E., THAT ONE AND ONLY 
ONE LOCATION IS ACCESSED BY ANY PARTICULAR ADDRESS). THESE 
TESTS ARE PERFORMED BY THREE SUBTESTS. DESCRIBED BELOW. A 
BYPRODUCT OF THESE TESTS IS A VERIFICATION OF TWO REGISTERS IN 
THE 2901 AND THE CAPABLITY OF THE 2901 TO CORRECTLY PERFORM AN 
ADD. 



TEST 2, SUBTEST 1: - 

THIS SUBTEST VERIFIES EACH RAN LOCATION BY FIRST PLACING THE 
DV132 INTO MAINTENANCE NODE BY WRITING INTO THE LOW BYTE OF TSDB 
AND THEN PERFORMING THE FOLLOWING SEQUENCE FOR EACH ADDRESS 
0-7777 (OCTAL): 



1. THE ADDRESS TO BE TESTED IS LOADED INTO THE TSDB (VIA A 
WORD WRITE). 

2. THE ADDRESSED RAM LOCATION IS WRITTEN. THEN READ INTO 
THE LOW BYTE OF TSBA. BY WRITING A DATA BYTE INTO THE 
LOW BYTE OF TSDB. 

3. THE LOW BYTE OF TSBA IS CHECKED TO SEE IF IT CONTAINS 
THE DATA PATTERN ORIGINALLY WRITTEN; A DISCREPANCY IS 
REPORTED AS AN ERROR. 

4. THE ADDRESS OF THE LOCATION BEING TESTED IS AGAIN 
WRITTEN INTO TSDB (WORD WRITE). TO CAUSE THE LOCATION 
UNDER TEST TO AGAIN BE READ INTO THE LOW BYTE OF TSBA. 
THE LOW BYTE OF TSBA IS AGAIN CHECKED AND DISCREPANCIES 
REPORTED. 

5. THE HIGH BYTE OF TSBA IS CHECKED; IT SHOULD CONTAIN 
THE SUN OF THE HIGH AND LOW BYTES LAST WRITTEN INTO 
TSDB AS A WORD. A DISCREPANCY IS REPORTED AS A 2901 
PROBLEM. 

6. THE CONTENT OF TSSR IS CHECKED; SETTING OF THE SC BIT 
IS IGNORED. OTHER DISCREPANCIES IN TSSR ARE REPORTED. 



BGNTST 

CLR 
NOV 
CLR 

BGNSUB 



FATFLG 

fEPRTI.EPRTSW 
KTFLG 



12: : 

; CLEAR FATAL ERROR FLAG 
;SET UP ERROR NESSAGE SWITCH 
:HOLD OFF KTII 

;//////////// BEGIN SUBTEST 111111111111 
T2.1: 

TRAP CtBSUB 
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TEST 2: RAM TEST 



4272 023742 


012700 


024666 




NOV 


ffTST21D,R0 


4273 023746 


004737 


017226 




JSR 


PCJSTSETUP 


4274 0237S2 


012737 


000002 002164 




NOV 


i2.L00PCNT 


427S 023760 






T2L00P: 






4276 023760 


004737 


016464 




JSR 


PC.bOFlNIT 


4277 023764 


103405 






BCS 


20$ 


4281 023766 


010001 






NOV 


R0.R1 


4282 023770 








ERRDF 


ERRNO.SFIERR.SFINSG 


023770 


104455 








023772 


000311 










023774 


003550 










023776 


011506 










4283 024000 


012704 


000002 


20S: 


NOV 


#2.R4 


4284 024004 






25$: 




4285 












4286 024004 


110402 






NOVB 


R4«R2 


4287 024006 


110465 


177777 




NOVB 


R4,TSDBH(R5) 


4288 024012 


110265 


177776 




NOVB 


R2,TSDBL(R5) 


4289 024016 


116501 


177776 




NOVB 


TSBAL(R5).R1 


4290 024022 


120102 






CNPB 


R1,R2 


4291 024024 


001404 






BEQ 


30$ 


4295 024026 








ERRHRD 


ERRN0,TSBAN2,EXPREC 


024026 


104456 










024030 


000312 










024032 


024524 










024034 


016164 










4296 024036 






30$: 






4297 












4298 024036 


005204 






INC 


R4 


4299 024040 


020427 


000400 




CNP 


R4.ff400 


4300 024044 


001357 






BNE 


25$ 


4301 024046 


005002 






CLR 


R2 


4302 024050 


005304 






DEC 


R4 


4303 024052 


110402 




40$: 


NOVB 


R4«R2 


4304 024054 


110465 


177777 




NOVB 


R4,TSDBH(RS) 


4305 024060 


116501 


177776 




NOVB 


TSBAL(RS)«R1 


4306 024064 


120102 






CNPB 


R1,R2 


4307 024066 


001404 






BEQ 


45$ 


4311 024070 








ERRNRD 


ERRN0.TSBAN2,EXPREC 


024070 


104456 










024072 


000313 










024074 


024524 










024076 


016164 










4312 024100 






45$: 


CKLOOP 




024100 


104406 










4313 024102 


005304 






DEC 


R4 


4314 024104 


022704 


000002 




CNP 


f2,R4 
40i 


4315 024110 


001360 






BNE 


4316 












4317 024112 








ENDSU6 




024112 













024112 104403 
4318 



:ASCn N5SSA6E TO IDENTIFY TEST 
:D0 INITIAL TEST SETUP 
.PERFORN 2 ITERATIONS 

:D0 INITIALIZE ON CONTROLLER 

;BR IF INIT WAS OK 

.•CONTENTS OF TSSR REGISTER 

.•FATAL ERROR TSSR UAS NOT OK 

TRAP 
.WORD 
.WORD 
.WORD 

;SET RAN ADDRESS AT TWO 



CSERDF 
201 

SFIERR 
SFINS6 



.EXPECTED DATA FRON WRAP-AROUND 
.LOAD ADDRESS INTO TSDB 
.'LOADS DATA INTO RAN LOCATION 
.•READS WRAP DATA 
;DOES WRITTEN(WRAP) « READ 
;BR IF OK. THEV ARE EQUAL 
:DATA NOT WRAPPED CORRECTLY 

TRAP 
.WORD 
.WORD 
.WORD 



CSERHRD 

202 

TSBAn2 
EXPREC 



.•NEXT ADDRESS 
:END OF RAN NENORY CHECK 
.•LOOP TILL ALL RAN WRITTEN 
.•CLEAR OUT R2 HIGH BITS 
.SET BACK TO 377 
.-GET DATA PATTERN BACK IN SHAPE 
:LOAD UP RAN ADDRESS POINTER 
.•READ RAN CONTENTS BACK 
; CHECK WITH DATA WRITTEN 
;BR If OK. DATA IN » DATA OUT 
.•WRITTEN DATA NOT » TO READ 

TRAP 



.WORD 
.WORD 
.WORD 

.SCOPE LOOP 

TRAP 

:DROP DATA COUNTER (PATTERN) 

:AT LOC TWO YET 

:BR. IF NOT AT TWO VET 



C$ERHRD 
205 
TSBAN2 
EXPREC 

C$CLP1 



;\\\\\\\\\\\\\ END SUBTEST \\\\\\\\\\\\\ 
L10042: 

TRAP CSESUB 



f 9 



C2TUUA0 TU60 FRONT END PRT A 
TEST 2: RAM TEST 



4320 

4321 0241 U 
0241 U 

4322 
4323 
<»324 
4325 
4326 
4327 

4328 024116 

4329 024122 

4333 024124 

4334 024126 
024126 
024130 
024132 
024134 

4335 024136 

4336 024140 

4337 024144 
4338 

4339 024144 

4340 024150 

4341 024154 

4342 024160 

4343 024162 

4347 024164 
024164 
024166 
024170 
024172 

4348 024174 
4349 

4350 024174 

4351 024176 

4352 024202 
4353 

4354 024204 

4355 024206 

4356 024210 

4357 024210 

4358 024214 

4359 024220 

4360 024222 

4361 024224 

4365 024226 
024226 
0242S0 
024232 
024234 

4366 024236 
4567 024242 

4368 024246 

4369 024252 

4370 024256 
L\7\ fl94MA 
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BGNSUB 



SEQ 109 



104402 



TEST 2. SUBitST 2 



;//////////// BEGIN SUBTEST //////////// 
T2.2: 

TRAP CSBSUB 



THIS SUBTEST URITES RAH WITH ALL ZEROS 

THEN WALKS AN ALL ONES UORb DOWN THROUGH HEHORV 



004737 
103405 
010001 

104455 
000314 
003550 
011506 
005002 
012704 



110465 
110265 
116501 
120102 
001404 

104456 
000315 
024524 
016164 



016464 



000002 



177777 
177776 
177776 



20$: 
25S: 



JSR PC.SOFINIT 

BCS 20t 

ROV R0.R1 

ERRDF ERRNO.SFIERR.SFIHSG 



CLR R2 
nOV f2,R4 



NOVB R4.TSDBH(R5) 

nOVB R2.TS0BL(R5) 

nOVB TSBAL(R5),R1 

CHPB R1 .R2 

BEO 30S 

ERRHRD ERRN0.TSBAn2.EXPREC 



30S: 



;D0 INITIALIZE ON CONTROLLER 

:BR IF INIT WAS OK 

.•CONTENTS OF TSSR REGISTER 

; FATAL ERROR TSSR WAS NOT OK 

TRAP 
.WORD 
.WORD 
.WORD 

.iEST DATA « 0 

; STARTING RAN ADDRESS = 2 



LOAD ADDRESS INTO TSDB 
LOADS DATA INTO RAM LOCATION 
READS WRAP DATA 
DOES WRITTEN(WRAP) « READ ? 
BH IF OK. THEY ARE EQUAL 
DATA NOT WRAPPED CORRECTLY 

TRAP 
.WORD 
.WORD 
.WORD 



CSERDF 
204 

SFIERR 
SF1HS6 



CSERHRD 
205 
TSBAM2 
EXPREC 



005204 






INC 


R4 


.•NEXT ADDRESS 


020427 


000400 




CMP 


R4.f400 


;END OF RAH HEMORV CHECK 


001360 






BNE 


258 


;BR. NORE RAN TO 60 


005304 




35S: 


OH 


R4 


;SET BACK TO 377 


005002 






CLrt 


R2 


.-SET TO ALL ZEROS 






408: 








110465 


177777 


NOVB 


R4.TS0BH(R5) 


;LOAD UP THE ADDRESS FOR RAN 


116501 


177776 




NOVB 


TSBAL(RS).R1 


:READ THE RAH CONTENTS BACK 


005002 






CLR 


R2 


;L00KIN6 FOR 000000 (EXPECTED) 


120102 






CHPB 


R1.R2 


.BOTH SHOULD BE 00000000 BINARY 


001404 






BEQ 


438 


;BR. IF DATA IS GOOD 








ERRHRD 


ERRN0.TSBAH3.EXPREC 


.•CHARACTERISTICS DATA NOT CORRECT 



104456 
000316 
024606 
016164 
012702 
110465 
110265 
116501 
120102 
001404 



000377 
177777 
177776 
177776 



438: NOV f000377.R2 

NOVB R4.7SD6H(R5) 

NOVB R2.TSDBL(R5) 

NOVB TS8AL(R5).R1 

CNP8 R1.R2 

BEQ 458 



TRAP 
.WORD 
.WORD 
.WORD 

SET ALL ONES WORD 

LOAD UP RAN ADDRESS POINTER 

WRITE DATA INTO RAN 

READ RAN CONTENTS BACK 

CHECK WITH DATA WRITTEN 

aR If OK. DATA IN « DATA OUT 



CSERHRD 
206 
TSBAH3 
EXPREC 



CZTUyAO TU80 FRONT END PRT 
TEST 2: RAH TEST 



4375 024262 
024262 
./24264 
024266 
024270 

4376 024272 
024272 

4377 024274 

4378 024276 

4379 024302 
4380 

4381 024304 
024304 
024304 

4382 



104456 
000317 
024524 
016164 

104406 
005304 
022704 
001342 



104403 



000002 



G 9 
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ERRhi^D ERRN0.TSBAH2.EXPREC 



45S: CKLOOP 

DEC R4 

CHP #2,R4 

BNE 40S 



ENOSUB 



;yRITTEN DATA NOT < TO READ 

TRAP CiERHRO 
.WORD 207 
.WORD TSBAn2 
.WORD EXPREC 

; SCOPE LOOP 

TRAP CiCLPI 
;DROP RAH ADDRESS POINTER 
;AT LOC 2 YET 
;8R, IF NOT AT TWO YET 



;\\\\\\V\\\\\\ END SUBTEST WWVVVWWW 
110043: 

TRAP CSESUB 



H 9 



CZTUWAO TU80 FRONT END PftT A 
TEST 2: RAH TEST 



4384 

4385 024306 
024306 
024306 

4386 
4387 
4388 
4389 
4390 
4391 

4392 024310 

4393 024314 

4397 024316 

4398 024320 
024320 
024322 
024324 
024326 

4399 024330 

4400 024334 

4401 024340 

4402 024340 
024340 

440S 024342 

4404 024346 

4405 024352 

4406 024356 

4407 024360 

4411 024362 
024362 
024364 
024366 
024370 

4412 024372 

4413 024372 
024372 
024372 

4414 

4415 024374 

4416 024376 

4417 024402 
4418 

4419 024404 

4420 024406 

4421 024406 

4422 024412 

4423 024414 

4424 024420 

4425 024424 

4426 024426 

4430 024430 
024430 
024432 
024434 
024436 

4431 02U40 



104402 



004737 
103405 
010001 

104455 
000320 
003550 
011506 
012702 
012704 



104404 
110465 
110265 
116501 
120102 
001404 

104456 
000321 
024524 
016164 



104405 

005204 
020427 
001356 

005304 

012702 
005001 
110465 
116501 
120102 
001404 

104456 
000322 
024606 
016164 
005002 

11AAA< 
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B6NSUB 



SEO ir 



;//////////// BEGIN SUBTEST //////////// 
T2.3: 

TRAP CSBSUB 



016464 



TEST 2, SUBTEST 3 



THIS SUBTEST URITcS RAH WITH ALL ONES 
THEN WALKS A ZERO WORD DOWN THROUGH HENORY 



177777 
000002 



177777 
177776 
177776 



20t: 
25$: 



JSR 
BCS 

nov 

ERRDF 



NOV 
HOV 

BGNSEG 

NOVB 

novB 

NOVB 
CHPB 
BEQ 
ERRNDD 



PCSOFINIT 

208 

R0.R1 

ERRNO.SFIEPR«SFIHSG 



f1777?7,R2 
«2.R4 



R4,TSDBH(R5) 

R2.TSDBL(R5) 

TSBAL(R5).R1 

R1,R2 

SOS 

ERRN0.TSBAN2.EXPREC 



DO INITIALIZE ON CONTROLLER 

BR IF INIT WAS OK 

CONTENTS OF TSSR REGISTER 

FATAL ERROR TSSR WAS NOT OK 

TRAP 
.WORD 
.WORD 
.WORD 

;SET DATA AT ALL ONES 
;SET RAH ADDRESS AT TWO 



CtERDF 
208 

SFIERR 
SFINSG 



308: 



ENDSE6 



;»»»»»» BEGIN 5EGHENT »>y»»»» 

TRAP C$BSE6 

:L0AD ADDRESS INTO TSDB 

.•LOADS DATA INTO RAH LOCATION 

;READS WRAP DATA 

.•DUES WRITTEN(WRAP) > READ ? 

:BR IF OK. THEY ARE EQUAL 

;DATA NOT WRAPPED CORRECTLY 

TRAP CIERHRD 
.WORD 209 
.WORD TSBAn2 
.WORD EXPREC 

;««««««< END SEGHENT ««««««< 
100008: 

TRAP C8ESEG 







INC 


R4 


:NEXT ADDRESS 


000400 




CHP 


R4.ff400 


:END OF RAH HEHORY CHECK 






BNE 


25$ 


;BR. HORE RAH TO GO 




35S: 


DEC 


R4 


:SET BACK TO 377 




40$: 






000377 




HOV 


f000377.R2 


:SET UP EXPFCTED DATA REGISTER 






CLR 


R1 


.•CLEAN OUT REGISTER 


177777 




H0V8 


R4.TSDBH(R5) 


:SELECT ADDRESS IN RAH 


177776 




NOVB 


TSBAL(R5).R1 


:P1CK UP RAH CONTENTS 






CHPS 


81. R2 


;IS HEHORY STILL ALL ONES 






BEQ 


43$ 


:BR. IF OK (ALL ONES) 






ERRHRD 


ERRN0.TSBAR3.EXPREC 


.•HEHORY CHANGED AFTER ALL ONES WRITE 



177777 



43$: CLR R2 

HOVB R4.TSDBH(R5) 



TRAP CSERHRD 

.WORD 210 

.WORD TSBAH3 

.WORD EXPREC 

:SET UP NEW EXPECTED 

: LOAD UP RAH APDBPSS POIMTFR 



) CZTUWAO TUaO FRONT END PRT A 
i TEST 2: RAM T€ST 
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SEO 112 



024446 

4434 0244S2 

44 35 0244S6 

4436 024460 

4440 024462 
024462 
024464 
024466 
024470 

4441 024472 
024472 

4442 024474 

4443 024476 

4444 024502 
4445 

4446 024504 
024504 
024504 

4447 

4448 024506 

4449 024512 

4450 024514 

4451 024520 
024520 
024522 

4452 
4453 
4454 
4455 

4456 024524 

4457 024606 

4458 024666 
4459 

4460 024672 
024672 
024672 



110265 
116501 
120102 
001404 

104456 
000323 
024524 
016164 

104406 
005304 
022704 
001341 



104403 

004737 
103002 
000137 

104432 
000150 



040 
127 
122 



104401 



177776 
177776 



4St: 



Nove 

N0V8 
CMPB 
BEO 
ERRHRO 



CKLOOP 



R2.TS0BL(RS) 
TSBAL(R5)«R1 
R1,R2 
4^S 

ERRl«0,T$BAM2.EXPREC 



000002 



DEC 
CMP 



R4 

f2,R4 
40S 



.•WRITE DATA INTO RAN 
:READ RAN CONTENTS BACK 
;CHECK WITH DATA WRITTEN 
;BR IF OK. DATA IN « DATA OUT 
.-WRITTEN DATA NOT * TO READ 

TRAP 
.WORD 
.WORD 
.WORD 

; SCOPE LOOP 

TRAP 

;DROP RAN ADDRESS POINTER 

.-CHECK LOC TWO 

;BR, IF NOT AT LOC 2 VET 



CSERNRD 

211 

TSBAN2 
EXPREC 

CSCLP1 



017174 
023760 



63S: 



ENDSUB 



JSR 
BCC 
JNP 
EXIT 



PC.TSTLOOP 
63S 
T2L00P 
TST 



;\\\\\\\\\\\\\ END SUBTEST WWVWWWW 
Li 0044: 

TRAP CSESUB 



:D0 WE NEED TO ITERATE TEST ? 
.-BRANCH IF NOT 
.EXECUTE AGAIN 
;ALL DONE THIS TEST 

TRAP 
.WORD 



CSEXIT 
L10041- 



.•LOCAL TEXT NESSA6FS FOR TEST 



127 
162 
141 



162 TSBAfl2: 
151 TSBAfiS: 
155 TST2ID: 



.ASCIZ * Writ* to TSDB Not Equal to R««d of TSBA Low Bytt' 

.ASCIZ *WHt* To RAN Location Nodi f ltd Anothtr Location* 

.ASCIZ *RW* 

.EVEN 

ENDTST 

L10041: 

TRAP 



C8ETST 



J 9 



CZTUWAO TUBO FRONT END PRT A 
TEST 3: CQMNANO REJECT 

4462 

4463 

4464 

4465 

4466 

4467 

4468 

4469 

4470 

4471 

4472 

4473 

4474 

4475 

4476 

4477 

4478 

4479 

4480 

4481 

4482 

4483 

4484 

4485 

4486 

4487 

4488 

4489 

4490 

4491 

4492 

4493 

4494 

U9S 

4496 

4497 

4498 

4499 

4S00 

4S01 

4S02 

4S0S 

4S04 

4S0S 

4506 

4507 

4508 

4509 

4510 

4511 

4512 

4513 

4514 

4515 

4516 

4517 

4518 
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.SBTTL TEST 3: CONHAMO REJECT 



SEO 113 



THIS TES^ VERIFIES THAT ALL COMMANDS OTHER THAN yRlTE 
CHARACTERISTICS ARE REJECTED DUE TO THE NEED BUFFER ADDRESS 
(NBA) BIT BEING SET IN TSSR. AND THAT THE TSBA AND TSSR 
REGISTERS ARE LEFT IN THE PROPER STATE AFTER EACH COMMAND IS 
REJECTED. THIS TEST CHECKS MICROPROCESSOR SEQUENCING* BASIC 
COMMAND DECODING AND DATI DMA HANDLING. THIS TEST CONTAINS TWO 
SUBTESTS: SUBTEST 1 SEQUENCES THROUGH ALL COMMAND WORDS (OTHER 
THAN WRITE CHARACTERISTICS) UITH THE INTERRUPT ENABLE (IE) BIT 
CLEAR AND VERIFIES THAT AN INTERRUPT IS NOT GENERATED BY THE 
REJECTED COMMAND: SUBTEST 2 PERFORMS SIMILARLY TO SUBTEST 1 BUT 
SETS THE IE BIT IN EACH COMMAND WORD AND VERIFIES THAT AN 
INTERRUPT IS GENERATED WHEN THE COMMAND IS REJECTED. SUBTEST 1 
SETS UP THE INTERRUPT SERVICE ROUTINE TO FLAG UNEXPECTED 
INTERRUPTS. THE COMMAND WORD IN THE COMMAND BUFFER IS 
INITIALIZED TO 100000 (OCTAL) AND THE REMAINING THREE WORDS IN 
TNE COMMAND BUFFER ARE SET TO KNOWN UNIQUE PATTERNS. THEN THE 
fOLLOWING SEQUENCE IS PERFORMED: 



1. 



2. 



S. 



4. 



5. 



INITIALIZE TNE CONTROLLER BY WRITING INTO THE TSSR; 
PROPER INITIAL CONDITIONS ARE VERIFIED. 

TSOB IS WRITTEN WITH ADDRESS OF THE COMMAND BUFFER TO 
START PMCESSIN6. 

TNE PBOGRAN WAITS FOR SSR TO SET; IF SSR DOES NOT SET. 
AN ERROR REPORT IS ISSUED AND THE TEST IS ABORTED. 



THE CONTENTS OF TSSR ARE CHECKED. TSSR IS CORRECT 
IT CONTAINS EITHER OCTAL 102206 OR 102306 (BIT 6 
DEPENDS UPON THE STATE OF THE TAPE TRANSPORT). 



IF 



6. 



TNE CONTENTS Of TSBA ARE CHECKED. TSBA SHOULD CONTAIN 
THE INITIAL COMMAND BUFFER ADDRESS (LOADED IN STEP 2) 
PLUS 10 (OCTAL); I.E., TSBA SHOULD POINT TO THE WORD 
JUST AFTER THE COMMAND PACKET (NOTE THAT 4 COMMAND 
PACKET WORDS ARE ALWAYS FETCHED). 

USING THE MAINTENANCE MODE WRAPAROUND FUNCTIONS. THE 
COMMAND IMAGE BLOCK IN TNE DV132*S RAM (LOCATIONS 
201-210 (OCTAL)) ARE CHECKED; THE IMAGE SHOULD CONTAIN 
A COPY OF TNE FOUR COMMAND PACKET WORDS AS SET UP IN 
CPU NENORV. 

THE COMMAND WORD IN THE COMMAND BUFFER IS INCREMENTED 
TO TNE NEXT PATTERN NOT CONTAINING WRITE 
CHARACTERISTICS OR IE. THE REMAINING THREE WORD OF THE 
COHRAND BUFFER ARE SEQUENCED WITH PSEUDO-RANDOM DATA. 
IF TNE COMMAND WORD HAS NOT REACHED ITS MA)(IMUM VALUE 
(1777mi>. THE TEST SEQUENCE IS REPEATED. 



HaTEST 2 IS I DENTICAL TO SUBTKT 1. MtfPT THAT THf PROGRAM 



7. 



CZTUUAO TU80 FRONT END PRT A 
TEST 3: COWIAND REJECT 
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SEO 1U 



4519 








4520 








4521 








4522 024674 








024674 








4523 024674 


AAV J% W 

005037 


AA*% A ^ A 

002170 




4524 024700 


012737 


A A^ A V% 

005672 


AAA 4 4 M 

002146 


4525 024706 


005037 


AAV4 AA 

003100 




4530 024712 


A« <%9AA 

012700 


026133 




4551 024716 


004737 


017226 




4532 024722 


A4 

012737 


AAA An A 

000002 


002164 


4533 024730 








4534 024730 








024730 








024730 


104402 






4535 








453o 024732 








024732 


At 99AA 

012700 


AAAAAA 

000000 




024736 


104441 






•»i37 02<t740 


A4 OVA/. 

012704 


AOCAf A 

025610 




A CVS A91.T1.1. 

453o 024744 


A1 97A1 

012703 


AA999A 

002720 




4539 02^750 


01Z314 






45A» 024752 








024752 


104404 






4)41 024 r 34 


AAl. W7 

004f 3f 


016464 




4542 024760 


1 AVI, AC 

10340) 






4546 024762 


At AAA1 

010001 






4547 024r04 








024764 


1 A//.CC 

1044)) 






024766 


/IAA1.CC 

0004)) 






024770 


AAVCCA 

003)50 






024772 


All CAA 

011)00 






4>4o 024 rr4 


AACAV7 

00)03 r 


AA91 7A 

0021 fv 




1.CZ.O A9CAAA 

434t 02)000 


AACAV7 

00)037 


AA01 79 

0021 72 




/.CCA A9CAAA 

45)0 025004 


004737 


A17AC/ 

01 7054 




/.KK1 A9KA1A 

4)31 02)010 


042f 14 


AAA9AA 

000200 




1.CC9 A9CA1Z. 

4552 025014 


A1 A1.AC 

010465 


177776 




ZCCV A9CA9A 

45)3 025020 


004737 


Af A7A.A 

016740 




ZCCl. A9CA9/. 

45)4 025024 


« A1tZA7 

10340r 






1.CCK A9CA9A 

455) 025026 


A1 AAA1 

010001 






/.CCa A9CAVA 

4)59 02)030 








A9CAVA 

02)030 


1 AAXCC 

1044)) 

AAAl. 'A 

0004,6 






A9CAf 9 

025032 






02)034 


02)64) 






02)036 


AH C3A 

011)20 






4)on 02)040 


v04r3r 


0 1 r r 20 




4501 02)044 








A9CA1.Z 

02)044 


104400 






4)62 02)046 










IW^* Iw 






025050 


000164 






4563 025052 


005737 


002172 




4564 025056 


001404 






4568 025060 








025060 


104456 






025062 


000457 






025064 


025723 







5S: 



lot: 



151: 



CAUSES THE IE BIT TO BE SET IN EACH COMMAND WORD AND THEN 
VERIFIES THAT AN INTERRUPT OCCURS. 



T3L00P: 



B6NTST 

CLR 
NOV 
CLR 
NOV 
JSR 
MOV 

BGNSUB 



MOV 
NOV 
MOV 

B6NSE6 

JSR 
BCS 
MOV 
ERRDF 



JSR 

CKLOOP 
ESCAPE 



TST 
BEO 
ERRHRD 



FATFLG 

fEPRT1,EPRTSW 
KTFLG 

#TST3ID,R0 

PC.TSTSETUP 

«2..L0OPCNT 



SETPRI fPRIOO 



«T3PACKET.R4 

»TSTBLK,R3 

(RS)«.(R4) 



T3: : 

.•CLEAR FATAL ERROR* FLAG 
.-SET UP ERROR MESSAGE SWITCH 
:HOLD OFF KT11 

.ASCII MESSAGE TO IDENTIFY TEST 
:D0 INITIAL TEST SETUP 
.•PERFORM 2 ITERATIONS 

;//////////// BEGIN SUBTEST It III 1111111 
T3.1: 

TRAP CS6SUB 

.•LOWER PRIORITY TO ALLOW INTERRUPTS 

MOV fPRIOO.RO 
TRAP CSSPRI 
;GET THE ADDRESS OF COMMAND PACKET 
:BLOCK OF TEST DATA 
.'INSERT THE NEXT TEST DATA WORD 
;»»»»»» BEGIN SEGMENT »»»»»» 



PC.SOFINIT 

10S 

R0.R1 

ERRNO.SFIERR.SFIMSG 



TRAP 

:D0 SOFT INIT OF CONTROLLER 

;BR IF SOFT INIT « OK 

;SaVE contents OF TSSR 

;DEVICE FATAL ERROR DURING INIT 

TRAP 
.WORD 
.WORD 
.WORD 



CSBSEG 



CtERDF 
301 

SFIERR 
SFIMSG 



CLR 


FATFLG 


; CLEAR FATAL ERROR FLAG 


CLR 


INTRECV 


.•CLEAR INTERRUPT RECEIVED FLAG 


JSR 


PC.CHKTSSR 


;WAIT FOR READY. NON-AMBIGUOUS 


BIC 


fBIT7,(R4) 


.•DISABLE INTERRUPTS 


MOV 


R4.T$DB(R5) 


.-SET THE PACKET ADDRESS 


JSR 


PC.WAITF 


;UAIT FOR SSR TO SET 


BCS 


15$ 


;BR IF CARRY SET (GOOD RETURN) 


MOV 


R0.R1 


.•SAVE CONTENTS OF TSSR 


ERRDF 


ERRN0.T3SSR.PKTSSR 


.•DEVICE FATAL SSR FAILED TO SET 



PC.FATCHK 
SUB 



INTRECV 
22$ 

ERRN0.T3INT.PK1SSR 



TRAP C$ERDF 

.WORD 302 

.WORD T3SSR 

.WORD PKTSSR 

.•INC AND CHECK FOR MORE THAN 2S ERRORS 
;LOOP ON ERROR. IF FLAG SET 

TRAP C$CLP1 
:BY-PASS SUBTEST IF FATAL ERROR 

TRAP CSESCAPE 

.WORD L10046-. 
.•DID AN INTERRUPT OCCUR ? 
;BRANCH IF NOT 

TRAP C$ERHRD 

.WORD 303 

jfiBft mm 



CZTUUAO TU80 FRONT END PR! A 
TEST 3: COMMAND REJECT 



02S066 

4569 02S070 

4570 025074 

4571 025100 

4572 025104 

4573 025110 

4574 025112 

4575 025116 

4576 025120 

4580 025122 
025122 
025124 
025126 
025130 

4581 025132 
025132 

4582 025134 

4583 025140 

4584 025144 

4585 025146 

4586 025150 
4590 025152 

025152 
025154 
025156 
025160 

4591 
4592 

4593 025162 

4594 025166 

4598 025170 
025170 
025172 
025174 
025176 

4599 025200 
025200 
025200 

4600 025202 

4601 025204 

4602 025210 

4603 025214 

4604 025216 

4605 025222 

4606 025226 

4607 025230 
4608 

4609 025234 
025234 
025234 

4610 

4611 025236 

4612 025242 

4613 025244 



011520 
012702 
004737 
016501 
032701 
001402 
052702 
020201 
001404 

104456 
000460 
025620 
011520 

104406 
004737 
016501 
010402 
020102 
001404 

104456 
000461 
026061 
016164 



004737 
103404 

104456 
000462 
004643 
016200 



104405 
011300 
042700 
020027 
001002 
062703 
020327 
103002 
000137 



104403 

005737 
001402 
004737 



102206 
017054 
000000 
000100 

000100 



MACRO Ml 200 



22S 



2SS 



30S 



017054 
177776 



010354 



35t 



401 



177740 
000004 

000002 
003030 

024750 



45$ 
50$ 



002170 
017772 
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SEQ 115 



MOV 
JSR 
MOV 
BIT 
BEQ 
BIS 
CMP 
BEQ 
ERRHRD 



CKLOOP 

JSR 
MOV 
MOV 
CMP 
BEQ 
ERRHRD 



#SC!NBA!SSR!TSREJ.R2 

PCCHKTSSR 

TSSR(R5).R1 

fOPL.RI 

25$ 

#0FL.R2 

R2.R1 

30$' 

ERRN0,T3NBA,PKTSSR 



PC.CHKTSSR 

TSBA(R5),R1 

R4.R2 

R1,R2 

35S 

ERRN0.T3TSBA,EXPREC 



.UORD PXTSSR 
:EXPECTED CONTENTS OF TSSR 
;UAIT FOR READY, NON-AMBIGUOUS 
:6ET THE CONTENTS OF TSSR 
;IS OFF-LINE BIT SET ? 
;BRANCH IF NOT OFF-LINE 
:SET OFF-LINE IN EXPECTED DATA 
.•DOES EXPECTED NATCH RECEIVED ? 
:DOES EXPECTED MATCH RECEIVED? 
;NBA NOT SET TO REJECT 

TRAP CSERHRD 
.WORD 304 
.WORD T3NBA 
.WORD PKTSSR 

;LOOP ON ERROR ? 

TRAP C$CLP1 

WAIT FOR READY. N0N-AMBI6UOUS 

GET TSBA REGISTER CONTENTS 

START OF THE PACKET 

COMPARE EXPECTED TO RECEIVED 

ERROR IF NOT EQUAL 

PRINT THE ERROR t EXPD/RECV 

TRAP C$ERHRD 
.WORD 305 
.WORD T3TSBA 
.WORD EXPREC 



JSR 
BCS 

ERRHRD 



ENDSEG 



MOV 

BIC 

CMP 

BNE 

ADD 

CMP 

BNIS 

JHP 

ENDSUB 



PC.CKRAM 
40$ 

ERRNO.PKTRAN.RAHERR 



(R3).R0 

f 177740.ro 

R0.f4 

45$ 

f2.R3 

R3.fTBLEND 

50$ 

5$ 



;SEE IF DATA IN RAM IS CORRECT 
.•BRANCH IF PACKET IN RAH IS CORRECT 
.•REPORT THE RAH ERROR(S) 

TRAP C$ERHRD 
.WORD 306 
.WORD PKTRAM 
.WORD RAMERR 
;««««««< END SEGMENT ««««««< 
10000$: 

TRAP C$ESEG 

.•PACKET COMMAND WORD 
.-GET BITS 0-4 

.DON'T TEST WRITE CHARACTERISTICS 
.BRANCH IF OK 

:GET NEXT WORD FROM DATA TABLE 
.•REACHED END OF TABLE ? 
.•BRANCH IF END OF TABLE 
: CONTINUE TEST WITH NEU DATA 

.•WWWWWWN END SUBTEST WXWWWWW 
L10046: 

TRAP C$ESUB 



TST 
BEQ 
JSR 



FATFLG 
60$ 

PC.CKDROP 



.•ANY FATAL ERRORS ? 

;BRANCH IF NOT 

;TRY TO DROP THE UNIT 



N 9 



CZTUVAO TU80 FRONT END PRT A 
TEST 3: COMNAND REJECT 
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461 9 O2S2S0 






60S: 


BGNSUB 


025250 








02S2SO 


• A/ / A*% 

104402 








4610 










4617 023252 








SETPRl 


02S2S2 


A4 HIAA 

012700 


AAAAAA 

000000 




029296 


4 A/ / # 4 

104441 








46iB 023260 


A4 tym. 
012704 


029610 




HOV 


461t 0c32o4 


A1 OVAV 

01 2703 


AA^ V9A 

902720 




NOV 


4620 029270 


A4 

01 2314 




99 : 


NOV 


4621 029272 








B6NSE6 


029272 


104404 






h6cc 029274 


004f 9» 


016464 




JSR 


h62j 029900 


103409 






BCS 


46c r 029902 


A1 AAAl 

010001 






MAU 

wov 


4620 029904 








cRRDr 


029904 


104499 






0299UO 


AAAA^V 

000409 








Uc991U 


AAV<<A 
009990 








U299IC 


AllCAiL 
011900 








40CT Uc99l4 


AACAV7 
UU909r 


AA917n 
OOcI r U 


lAC • 

io>: 


n D 


469U 0^920 


AACAT7 
00909r 


AA9179 
0021 rc 




n B 
ILR 


A9XV3^ 
4091 UC9924 


004f 9f 


A1 7AC1. 
01 f 094 




Jan 


409c Uc999U 


092f 14 


AAA O Art 
OOOcOO 




DtC 

BIS 


4099 Uc9994 


A1 A^iLC 
010409 


1 7777IL 




MAU 

nOV 


4094 Uc994U 


AA^7X7 
00*r9» 


UI0f4U 




ICD 

Jan 


4099 Uc99*>4 


1A14A7 






Bta 


4090 Uc99%0 


A1AAA1 






MAU 

WOV 


4D*IU Uc999U 








CnnWr 


A3CXC0 


IU*l*l99 








UC999C 










Uc999*l 


UC90*l9 








A9^X<A 


A1 1 <9A 
U 1 1 9cU 








•lO*i 1 Uc^90ll 


UW*r9r 


A1779A 
Ul r rcU 




Jan 


LttLO n9sXA£ 
*iO<lC UC9904 






19*: 


CKLOOP 


UC9904 


IV4^U0 








LAMX A9<XikA 
4049 Vc990O 








CCr ADC 


Uc9900 


1w441W 








Uc99fU 


UUU104 








■•D*i4 VC^jfC 


AAC7X7 


AA91 73 
UUC 1 f C 




TCT 

lal 


40*l9 Uc99fO 


AAIAA^ 
0010U4 






Due 


404t Uc94UU 








CDDUDn 

CnnHRD 


A9<AAA 


104490 






Uc94VC 


AAA^AC 
0UU409 








Uc94U4 


A94MA1 
UcOUUI 








Uc 94U0 


A1K3A 
01 19cv 








409U Uc941U 


A1 97A9 
OlcrOc 


lOccOO 


99ft • 

€C9l 


■All 

HOV 


4091 Uc 94 14 


AA^7V7 
00*r 9f 


Af 7AU 
Ui rU94 




■ CD 

Jan 


409c Uc94cv 


010901 


AAAAAA 
000000 




■AU 

WOV 


46S3 025424 


032701 


000100 




BIT 


4654 02S4S0 


001402 






BEQ 


4655 025452 


052702 


000100 




BIS 


4656 025436 


020201 




25$: 


CNP 


4657 025440 


001404 






BEO 


4661 025442 








ERRHRD 


025442 


104456 








025444 


000466 









«T3PACKET.R4 

#TSTBLK,RS 

(R3)^,(R4) 



PCSOFINIT 

10$ 

R0.R1 

ERRN0,SFIERR,SFIHS6 



FATFL6 

INTRECV 

PCCHKTSSR 

ffBIT7,(R4) 

R4«TS0B(R5) 

PC.VAITF 

15$ 

R0.R1 

ERRN0.T3SSR.PKTSSR 



PC.FATCHK 
SUB 



INTRECV 
22$ 

ERRN0J3NINT.PKTSSR 



fSC!NBA!SSR!TSREJ.R2 

PC.CHKTSSR 

TSSR(RS)«R1 

fOFL.RI 

25$ 

fOFL.R2 

R2.R1 

30$ 

ERRN0J3NBA.PKTSSR 



;//////////// BEGIN SUBTEST //////////// 
T3.2: 

TRAP CSBSUB 

:LOUER PRIORITY TO ALLOW INTERRUPTS 

NOV fPRIOO«RO 
TRAP C$SPRI 

;GET THE ADDRESS OF COfWAND PACKET 

.•START OF TEST DATA 

.•PLACE NEXT DATA WORD IN PACKET 

;»»»»»» BEGIN SEGI^NT »»»»»» 

TRAP CSBSEG 

:D0 SOFT INIT OF CONTROLLER 

;BR IF SOFT INIT » OK 

.•SAVE CONTENTS OF TSSR 

; DEVICE FATAL ERROR DURING INIT 

TRAP CSERDF 
.WORD 307 
.WORD SFIERR 
.WORD SFIHS6 

.•CLEAR FATAL ERROR FLAG 

;CLEAR INTERRUPT RECEIVED FLAG 

.-WAIT FOR READY. NON-AMBIGUOUS 

: ENABLE INTERRUPTS 

.-SET THE PACKET ADDRESS 

:UAIT FOR SSR TO SET 

;BN IF CARRY SET (GOOD RETURN) 

;SAVE CONTENTS OF TSSR 

.•DEVICE FATAL SSR FAILED TO SET 

TRAP C$ERDF 
.WORD 308 
.WORD T3SSR 
•WORD PKTSSR 

; INC AND CHECK FOF. MORE THAN 25 ERRORS 

;LOOP ON ERROR. IF FLAG SET 

TRAP C$CLP1 

;BY-PASS SUBTEST IF FATAL ERROR 

TRAP C$ESCAPE 
.WORD L10047-. 

.-DID AN INTERRUPT OCCUR ? 

'BRANCH IF YES 

•REPORT ERROR IF NO INTERRUPT 

TRAP C$ERHRD 
.WORD 309 
.WORD T3NINT 
.WORD PKTSSR 

;EXPECTED CONTENTS OF TSSR 

.•WAIT FOR READY. NON-AMBIGUOUS 

:GET THE CONTENTS OF TSSR 

;IS OFF-LINE BIT SET ? 

; BRANCH IF NOT OFF-LINE 

:SET OFF-LINE IN EXPECTED DATA 

.-DOES EXPECTED HATCH RECEIVED ? 

.•OKAY IF MATCH 

.•NBA NOT SET TO REJECT 

TRAP CSERHRD 
yORD JUL 



CZTUUAO TU&O FRONT END PRT A 
TEST 3: COMHAND REJECT 



N 9 
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02S446 
0254S0 

4662 0254S2 
02S4S2 

4663 025454 

4664 025460 

4665 025464 

4666 025466 

4667 025470 
4671 025472 

025472 
025474 
025476 
025500 

4672 
4673 

4674 025502 

4675 025506 

4679 025510 
025510 
025512 
025514 
025516 

4680 025520 
025520 
025520 

4681 025522 
4o82 025524 

4683 025530 

4684 025534 

4685 025536 

4686 025542 

4687 025546 

4688 025550 
4689 

4690 025554 
025554 
025554 

4691 025556 

4692 025562 

4693 025564 

4694 025570 

4695 025574 

4696 025576 

4697 025602 
025602 
025604 

4698 
4699 
4700 
4701 
4702 

4704 025606 

4706 025610 

4707 025610 
4706 02S612 
4709 ''zseu 



025620 
011520 

104406 

004737 017054 
016501 177776 
0'i0402 
020102 
001404 

104456 
000467 
026061 
016164 



004737 010354 
103404 

104456 
000470 
004643 
016200 



30S: 



35t: 



104405 
011300 
042700 
020027 
001002 
062703 
020327 
103002 
000137 



177740 
000004 

000002 
003030 

025270 



104403 

005737 002170 
001402 

004737 017772 
004737 017174 
103002 

000137 024730 

104432 
000346 



CKLOOP 
JSR 

nov 

NOV 
CHP 
BEQ 

ERRHRD 



JSR 
BCS 

ERRHRD 



40S: ENDSE6 



NOV 
BIC 

CUP 

BNE 
ADD 

45ft: CNP 
BHIS 
JNP 

50ft: ENOSUB 



TST 
BEO 

JSR 

60S: JSR 
BCC 
JMP 

62S: EXIT 



PC.iriKTSSR 

TSBA(R5),R1 

R4,R2 

R1.R2 

35S 

ERRN0.T3TSBA,EXPREC 



PC.CKRAN 
40ft 

ERRNO.PKTRAN.RANERR 



(R3) ,R0 

#1 77740. RO 

R0.#4 

45ft 

f2,R3 

R3.#TBLEND 

50ft 

Sft 



FATFL6 
60ft 

PC.CKDROP 

PC.TSTLOOP 

62S 

T3L00P 

TST 



LOCAL STORAGE FOR THIS TEST 



000000 
052525 
12S252 



.BLKB 
T3PACKET: 

.WORD 
.WORD 
.WORD 



10-<.-TUV2Aft7> 
0 

052525 

125252 



.WORD T3NBA 
.WORD PKTSSR 

:LOOP ON ERROR ? 

TRAP CftCLPl 

.-WAIT FOR READY. N0N-AMBI6U0US 

;6ET TSBA REGISTER CONTENTS 

; START OF THE PACKET 

; COMPARE EXPECTED TO RECEIVED 

: ERROR IF NOT EOUAL 

;PRINT THE ERROR ft EXPD/RECV 

TRAP CSERHRD 
.WORD 311 
.WORD T3TSBA 
.WORD EXPREC 



;SEE IF DATA IN RAN IS CORRECT 
;BRANCH IF PACKET IN RAN IS CORRECT 
; REPORT THE RAN ERROR (S) 

TRAP CSERHRD 
.WORD 312 
.WORD PKTRAH 
.WORD RANERR 
;««««««< END SE6NENT ««««««< 
10000ft: 

TRAP CSESEG 
.-NfcXT PACKET CONNAND WORD 
;GET BITS 0-4 

;DON*T TEST WRITE CHARACTERISTICS 
.•BRANCH IF NOT WRITE CHARACTERISTICS 
;BY-PASS WRITE CHARACTERISTCS 
;HAVE WE CONPLETED DATA TABLE ? 
.•BRANCH IF ALL TESTED 
.•TEST WITH NEXT DATA 

;\\\\\\\\\\\\\ END SUBTEST VWWWWWW 
LI 0047: 

TRAP CSESU6 

;ANY FATAL ERRORS ? 

:BRANCH IF NOT 

;TRY TO DROP THE UNIT 

.•SHOULD WE DO ITERATIONS ? 

; BRANCH IF NOT 

:LOOP UNTIL COUNT EXPIRED 

:ALL DONE THIS TEST 

TRAP CSEXIT 
.WORD L10045-. 



.•CONNAND PACKET FOR TEST 

.•WILL CONTAIN VARIABLE CONNANDS 



TEST 3: COPWAND REJECT 



4710 02S616 

4711 

4712 

4713 

4714 

4715 

4716 

4717 025620 

4718 02S645 

4719 025723 

4720 026001 

4721 026061 

4722 026133 
4723 

4724 026152 
026152 
026152 



0S2S2S 



103 
103 
125 
105 
111 
103 



104401 



157 
157 
156 
170 
156 
157 



155 
156 
145 
160 
143 
155 



.WORD 052525 



LOCAL TEXT NESSA6E:> FOR TEST 



T3NBA 

T3SSR 

T3INT 

T3NINT 

T3TSBA 

TST3I0 



.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.EVEN 

ENDTST 



'Comand Not Rtjtcttd* 

'Conttnts of TSSR Incorrtct Afttr Uritt Packtt* 
'Untxptcttd Inttrrupt Rtctivtd On Urltt Packtt* 
'Exptcttd Inttrrupt Not Rtctivtd On Urltt Packtt' 
'Incorrtct TSBA Addrtss Afttr Packtt Urftt* 
*CoMiand Rtjtct* 



1.10045: 



TRAP CSETST 



C 10 



CZTUUAO TUftO fRONT END PRT A 
TEST 3: COfWANO REJECT 

4726 

4727 

4728 

4729 

4730 

4731 

4732 

4733 

4734 

4735 

4736 

4737 

4738 

4739 

4740 

4741 

4742 

4743 

4744 

4745 

4746 

4747 

4748 

4749 

4750 

4751 

4752 

4753 

4754 026154 
026154 

4755 026154 005037 002170 

4756 026160 012737 005672 

4757 026166 005037 003100 

4762 026172 012700 030107 

4763 026176 004737 017226 

4764 026202 012737 000002 

4765 026210 

4766 026210 
026210 

026210 104402 

4767 026212 004737 030136 
476S 

4769 026216 

026216 012700 000000 
026222 104441 

4770 026224 012703 002732 

4771 026230 012704 027240 

4772 026234 012764 000010 

4773 026242 

4774 026242 
026242 104404 

4775 

4776 026244 004737 016464 

4777 026250 103405 

4781 026252 010001 

4782 026254 

1044SS 
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SEQ 119 



.SBTTL TEST 4: WRITE CHARACTERISTICS 



THIS TEST VcRIFIES BASIC OPERATION OF TME WRITE CHARACTERISTICS 
COMHANO. IT VERIFIES THAT THE COFWAND SLOCK AND CHARACTERISTICS 
DATA BLOCK ARE FETCHED PROPERLY FROM CPU MEMORY, THE NEED BUFFER 
ADDRESS (NBA) BIT IN TSSR IS HANDLED PROPERLY, AND THAT A PROPER 
MESSAGE PACKET IS STORED, WHERE APPROPRIATE. THIS TEST DOES NOT 
CHECK THAT THE VARIOUS FUNCTIONS ENABLED BY CHARACTERISTIC NODE 
DATA BITS OPERATE PROPERLY; THE FUNCTIONING OF THESE BITS IS 
VERIFIED IN SUBSEQUENT TESTS. ALL COMMANDS EXECUTED IN THIS 
TEST HAVE THE INTERRUPT ENABLE (IE) BIT CLEARED TO ZERO. SO NO 
INTERRUPTS SHOULD BE GENERATED. HOWEVER. THE PROGRAM RUNS AT 
PROCESSOR PRIORITY 0, WITH THE INTERRUPT SERVICE ROUTINE SET UP 
TO FLAG UNEXPECTED INTERRUPTS. IF AN INTERRUPT OCCURS. A 
PROBLEM EXISTS IN EITHER THE LSI-11 BUS INTERFACE SECTION OR IN 
THE RON OR PIPELINE. 

THIS TEST CHECKS VARIOUS MICROPROGRAM SEQUENCES. COMMAND 
DECODING. DMA LOGIC, AND BASIC PACKET PROTOCOL HANDLING. THIS 
IS THE FIRST TEST IN WHICH DATO DMA CYCLES (FOR STORING THE 
MESSAGE PACKET) ARE PERFORMED. ANY ERRORS IN THE BODY OF THE 
TEST (I.E, ERRORS OTHER THAN INITIALIZATION ERRORS RELATED TO 
THE TRANSPORT BUS) DEFINITELY INDICATE A BAD M74$4 MODULE. 



002146 



B6NTST 

CLR 
MOV 
CLP. 
MOV 
JSR 

002164 MOV 
T4L00P: 

BGNSUB 



"mTFLG 

fEPRTi.EPRTSW 

KTFLG 

fTST4ID,R0 

PCTSTSETUP 

«2..L00PCNT 



JSR PC,T4REST 
SETPRI fPRIOO 



000006 



5$: 



MOV 
MOV 

nov 

BGNSE6 



JSR 
BCS 
MOV 
ERRDF 



fTSTBLKO0.,R3 

fT4PACKET,R4 

f8..PKBCNT(R4) 



T4: : 

: CLEAR FATAL ERROR FLAG 
;SET UP ERROR MESSAGE SWITCH 
:HOLD OFF KT11 

.'ASCII MESSAGE TO IDENTIFY TEST 
;D0 INITIAL TEST SETUP 
.'PERFORM 2 ITERATIONS 

;//////////// BEGIN SUBTEST //////////// 
T4.1: 

TRAP CtBSUB 
;SET PACKET TO START-UP VALUES 

; LOWER PRIORITY TO ALLOW INTERRUPTS 

NOV ffPRlOO.RO 
TRAP CSSPRl 

.•START OF TEST DATA 

:GET THE ADDRESS OF COMMAND PACKET 

.-START WITH NININUN ALLOWABLE VALUE 

:»»»»»» BEGIN SEGMENT »»»»»» 

TRAP CtBSEG 



PCSOFINIT 

10$ 

R0,R1 

ERRNO.SFIERR.SFIMSG 



DO SOFT INIT CONTROLLER 
BR IF SOFT INIT - OK 
SAVE CONTENTS OF TSSR 
DEVICE FATAL ERROR DURING INIT 

mi CSEBOf 



D 10 



CZTUWAO TUSO FRONT END PRT A 
TEST A: WRITE CHARACTERISTICS 
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026256 


000621 








026260 


0035S0 








026262 


011506 








4783 026264 


005037 


002170 


lot: 


CLR 


47S4 026270 


005037 


002172 




CLR 


478S 026274 


010465 


177776 




rav 


4786 026300 


004737 


017054 




JSR 


4787 026304 


103407 






BCS 


4788 026306 


010001 






NOV 


4792 026310 








ERRDF 


026310 


104455 








026312 


000622 








026314 


027646 








026316 


011520 








4793 026320 


004737 


017720 




JSR 


4794 026324 






15$: 


CKLOOP 


026324 


104406 






4795 026326 








ESCAPE 


026326 


104410 








026330 


000126 








4796 026332 


005737 


002172 




TST 


4797 026336 


001404 






BEQ 


4801 026340 








ERRHRD 


026340 


104456 








026342 


000623 








026344 


027735 








026346 


011520 








4802 026350 


016501 


000000 


22$: 


HOV 


4803 026354 


012702 


000200 




HOV 


4804 026360 


032701 


000100 




BIT 


4805 026364 


00140? 






BEQ 


4806 026366 


052702 


000100 




BIS 


4807 026372 


020201 




25$: 


CUP 


4808 026374 


001404 






BEQ 


4812 026376 








ERRHRO 


026376 


104456 








026400 


000624 








026402 


027376 








026404 


011520 








4813 026406 






30$: 


CKLOOP 


026406 


104406 








4814 026410 


004737 


017054 




JSR 


4815 026414 


016501 


177776 




mv 


4816 026420 


012702 


027240 




HOV 


4817 026424 


020102 






CNP 


4818 026426 


0C1404 






BEQ 


4822 026430 








ERRHRD 


0264M> 


104456 








026432 


000625 








026434 


030024 








026436 


016164 








4823 










4824 










4825 G26440 


004737 


010334 


35$: 


JSR 


4826 026444 


103404 






BCS 


48^) 026446 








ERRHRD 




1044SA 









F.«TPLG 

INTncCV 

R4.TSDB(R5) 

PC«CHKTSSR 

15$ 

R0.R1 

ERRN0,T4SSR.PKTSSR 



PCFATCHK 
SEG 



INTRECV 
22$ 

ERRN0.T4INT.PKTSSR 



TSSR(R5).R1 
fSSR,R2 
#0FL,R1 
25$ 

fOFL.R2 

R2.R1 

30$ 

ERRN0.T4IIBA,PKTSSR 



PCCHKTSSR 

TSBA(R5).R1 

fT4PACKET,R2 

R1.R2 

35$ 

ERRN0.T4TSBA.EXPREC 



PCCKRAN 
40$ 



SEQ 120 



.WORD 401 
.WORD SFIERR 
.WORD SFinSG 

.•CLEAR FATAL ERROR FLAG 

: CLEAR INTERRUPT RECEIVED FLAG 

;SET THE PACKET ADDRESS 

.-WAIT FOR SSR TO SET 

:BR IF CARRY SET (GOOD RETURN) 

:SAVE CONTENTS OF TSSR 

:DEV1CE FATAL SSR FAILED TO SET 

TRAP C$ERDF 
.WORD 402 
.WORD T4SSR 
.WORD PRTSSR 

:INC AND CHECK FOR MORE THAN 25 ERRORS 

:LOOP ON ERROR. IF FLAG SET 

TRAP C$CLP1 

:BY-PASS SUBTEST IF FATAL ERROR 

TRAP C$E SCAPE 
.WORD 10000$-. 

:DID AN INTERRUPT OCCUR ? 

.•BRANCH IF NOT 

TRAP C$ERHRD 
.WORD 403 
.WORD T4INT 
.WORD PKTSSR 

;GET THE CONTENTS OF TSSR 

: EXPECTED CONTENTS OF TSSR 

;IS OFF-LINE BIT SET ? 

.•BRANCH IF NOT OFF-LINE 

;SET OFF-LINE IN EXPECTED DATA 

.•DOES EXPECTED NATCH RECEIVED ? 

.-OKAY IF NATCH 

:NBA NOT ZERO 

TRAP C$ERHRD 
.WORD 404 
.WORD T4NBA 
.WORD PrTSSR 

.'LOOP ON ERROR ? 

TRAP C$CLP1 

.•WAIT FOR READY. NON-AMBIGUOUS 

;GET TSBA REGISTER CONTENTS 

.•START OF THE BUFFER 

.•COMPARE EXPECTED TO RECEIVED 

.•ERROR IF NOT EQUAL 

:PRINT THE ERROR ft EXPD/RECV 

TRAP C$ERHRD 
.WORD 405 
.WORD T4TSBA 
.WORD EXPREC 



SEE IF DATA IN RAM IS CORRECT 
BRANCH IF PACKET IN RAM IS CORRECT 
REPORT THE RAM ERROR (S) 

TRAP mam 



CZTUUAO TU80 FRONT END PRT A 
TEST 4: WRITE CHARACTERISTICS 



0264S0 


000626 




02M52 


004643 




0264S4 


016200 




4831 






4ft32 026456 






026456 






026456 


104405 




4833 






4834 026460 


012364 


000006 


4835 026464 


020327 


003030 


4836 026470 


103002 




4637 026472 


000137 


026242 


4838 






4839 026476 






026476 






026476 


104403 




4840 






4841 026500 


005737 


002170 


4842 026504 


001402 




4843 026506 


004737 


017772 


4844 026S12 







E 10 
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40$: EN9SF6 



NOV (R3)^.PKBCNT(R4) 

CNP R3,fTBlEND 

BNIS 55$ 

JNP 5$ 

55$: ENOSUa 



TST FATFLG 

BEQ 60$ 

JSR PC.CKDROP 

60$: 



.WORD 406 
.yORD PKTRAN 
.WORD RANERR 

;««««««< END SE6NENT ««««<«« 
10000$: 

TRAP C$ESE6 

;SET THE TEST WORD 
;HAS ALL DATA BEEN TESTED ? 
: BRANCH IF ALL DATA DONE 
; BRANCH TILL BACK TO ZERO 

;\\\\\\\\\\\\\ END SUBTEST WWWWWVW 
Li 0051: 

TRAP C$ESUB 

;ANY FATAL ERRORS ? 

.•BRANCH IF NOT 

:TRY TO DROP THE UNIT 



F 10 



104402 



012700 000000 
104441 

012703 027304 

012704 027240 
004737 030136 



016464 



CZTUWAO TU80 FRONT END PRT A 
TEST 4: WRITE CHARACTERISTICS 



4846 
4847 
4848 
4849 
4850 
4851 
4852 
4853 
4854 

4855 026S12 
026512 
026512 

4856 

4857 026514 
026514 
026520 

4858 026522 

4859 026526 

4860 026532 
4861 

4862 026S36 
026536 

4863 

4864 026540 

4865 026544 

4869 026546 

4870 026550 
026SS0 
026SS2 
026554 
026556 
026560 

4872 026564 

4873 026566 

4874 026570 

4875 026S74 

4876 026600 

4877 026604 

4878 026606 

4882 026610 
026610 
026612 
026614 
026616 

4883 026620 
026620 

4864 026622 
026622 
026624 
4085 026626 
4886 026632 
4890 026634 
026634 
026636 
026640 
026642 
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TEST 4. SUBTEST 2 



SEQ 122 



CHECK THAT UNUSED biTS BEING SET CAUSES 
WRITE CHARACTERISTICS COmAND TO BE REJECTED 



58: 



4871 



LA 



104404 

004737 
103405 
010001 

104455 
000627 
003550 
011506 
005037 
010400 
061300 
0S6310 
010465 
004737 
103405 
010001 

104455 
000630 
027646 
011520 

104406 

104410 
000116 
005737 
001404 

104456 
000631 
027735 
011520 
AlAfOI 



002172 



000002 
177776 
016740 



10$: 



158: 



002172 



BGNSUB 



SETPRI #PRI00 



nOV fT42DATA,R3 

NOV «T4PACKET,R4 

JSR PC.T4REST 

BGNSEG 



JSR PCSOFINIT 

BCS 10S 

MOV R0.R1 

ERRDF ERRNO.SFIERR.SFINSG 



CLR INTRECV 

NOV R4,R0 

ADD (R3) ,R0 

BIS 2(R3),(R0) 

NOV R4«TSDB(R5) 

JSR PCUAITF 

BCS 151 

NOV R0«R1 

ERRDF ERRN0.T4SSR.PKTSSR 



CKLOOP 
ESCAPE SEG 



TST INTRECV 
BEQ 22t 

ERRHRD ERRN0,T4INT.PKTSSR 



000000 



228: 



NOV 



TSSR(R5).R1 



;//////////// BEGIN SUBTEST //////////// 
T4,2: 

TRAP CSBSUB 

; LOWER PRIORITY TO ALLOW INTERRUPTS 

NOV «PRIOO.RO 
TRAP CISPRI 
; START OF TEST DATA FOR SUBTEST 
;6ET THE ADDRESS OF COMMAND PACKET 
.•RESTORE PACKET TO STARTING VALUES 

:»»»»»» BEGIN SEGMENT »»»»»» 

TRAP CSBSEG 

;D0 SOFT INIT OF CONTROLLER 

:BR IF SOFT INIT * OK 

;SAVE CONTENTS OF TSSR 

.'DEVICE FATAL ERROR DURING INIT 

TRAP CtERDF 
.WORD 407 
.WORD SFIERR 
.WORD SFINSG 

.CLEAR INTERRUPT RECEIVED FLAG 

; START OF THE COMMAND PACKET 

:OFFSET TO THE DATA WORD TO TEST 

;SET THE DATA BITS 70 BE TESTED 

.SET THE PACKET ADDRESS 

.•WAIT FOR SSR TO SET 

;BR IF CARRY SET (GOOD RETURN) 

;SAVE CONTENTS OF TSSR 

:DEVICE FATAL SSR FAILED TO SET 

TRAP CSERDF 
.WORD 408 
.WORD T4SSR 
•WORD PKTSSR 

;LOOP ON ERROR« IF FLAG SET 

TRAP CSCLPI 

: BY-PASS CHECKS IF FATAL ERROR 

TRAP CSESCAPE 
.WORD 10000S-. 

; DID AN INTERRUPT OCCUR ? 

; BRANCH IF NOT 

TRAP CSERHRD 
.WORD 409 
.WORD T4INT 
WCRD PKTSSR 

:GFT THr CONTENTS Jf TSSR 



CZTUWAO TU80 FRONT END PRT A 
TEST 4: WRITE CHARACTERISTICS 
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4892 02M50 


01^702 


102206 


4893 0266S4 


032701 


000100 


4894 026660 


001402 


4895 026662 


052702 


000100 


4896 026666 


020201 


4897 026670 


001414 




4898 026672 


010100 




4899 026674 






4900 026704 


ik<t AA<%V 

020027 


002000 


/ OA4 A^A94A 

4901 026710 


AAA J A J 

001404 




4905 026712 






026712 


104456 




0267H 


AAAX W 

000632 




026716 


0274Si 




026720 


A4 4 1A 

011520 




4906 026722 






026722 


4 A^ J AX 

104406 




i AAV A'*A9nj 

4907 026724 


032701 


AA'k AAA 

002000 


J AAA A'^AWA 

4908 026750 


AA4 AAJ 

001004 


4912 026732 






026732 


4 A/ i 

104456 




026734 


000633 




026736 


027320 




026740 


011520 










4t14 026742 






02d742 






026742 


% A/ i Alt 

104405 




4t1> 










www* 


4917 026750 


020327 


027320 


4918 026754 


103002 


4919 026756 


000137 


026526 


4920 




4921 026762 






026762 






026762 


104403 





2SS: 



30$: 



HOV 
BIT 
BEQ 
BIS 
CUP 
BEQ 
HOV 
XOR 
CHP 
BEQ 
ERRHRD 



CKLOOP 



«SC!SSR1TSREJ!NBA.R2 

fOFL.RI 

2SS 

#0FL.R2 

R2,N1 

30$ 

R1«R0 

R2,R0 

RO.fNBA 

30$ 

ERRN0,T42REJ,PKTSSR 



BIT 
BNE 



fNBA.RI 
35$ 



ERRHRD ERRN0.T42N6A«PKTSSR 



35$: 



57$: 



EN0SE6 



ADD 
CHP 
BHIS 
JHP 

ENDSUB 



f4«R3 

R3.fT420ONE 

57$ 

5$ 



.•EXPECTED CONTENTS OF TSSR 

:IS OFF-LINE BIT SET ? 

.BRANCH IF NOT OFF-LINE 

;SET OFF-LINE IN EXPECTED DATA 

:DOES EXPECTED HATCH RECEIVED ? 

;OKAV IF MATCH 

.DATA FROFI TSSR 

.'FIND BITS IN ERROR 

:IS NBA ONLY BIT IN ERROR ? 

; DON'T PRINT ERROR IF NBA ONLY BAD BIT 

.CONHAND NOT REJECTED 

TRAP C$ERHRD 
.UORD 410 
.WORD T42REJ 



.-LOOP ON ERROR ? 

;IS NBA BIT SET ^ 
;OKAV IF NBA SET 
.NBA NOT SET 



.WORD PKTSSR 
TRAP C$CLP1 



TRAP C$ERHRD 

.UORD 411 

.WORD T42NBA 

.yORD PKTSSR 

;««««««< END SEGMENT ««««««< 
10000$: 

TRAP CKSE6 

POINT TO NEXT DATA PAIR 
COMPARE TO END OF TEST DATA 
BRANCH IF ALL DATA TESTED 
BRANCH TILL BACK TO ZERO 

;\\\\\\\\\\\\\ END SUBTEST \\\\\\\\\\\\\ 
L10052: 

TRAP C$ESUB 



H 10 



CZTUyAO TU80 FRONT ENO PUT A 
TEST 4: MITE CNARACTEKISTICS 



4923 
4924 
4925 
4926 
4927 
4928 
4929 
4930 
4931 
4932 

4933 026764 
026764 
026764 

4934 

4935 026766 
026766 
026772 

4936 026774 

4937 027000 

4938 027004 
4939 
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TEST 4. SUBTEST 3 



SEO 124 



SUBTEST TO VERIFY THAT A WRITE CHARACTERISTICS COFWANO IS 
REJECTED IF AN ILLEGAL DATA BLOCK ADDRESS IS ISSUED. 



4940 

4941 027010 

4942 027014 

4946 027016 

4947 027020 
027020 
027022 
027024 
027026 

4948 027030 

4949 027034 

4950 027042 

4951 027046 

4952 027052 

4953 027054 

4957 027056 
027056 
027060 
027062 
027064 

4958 027066 
027066 

4959 027070 
027070 
027072 

4960 027074 

4961 027100 

4965 027102 
027102 
027104 
027106 
027110 

4966 027112 

4967 027116 

4968 027122 

4969 027126 



104402 



012700 000000 
104441 

012703 027304 

012704 027240 
004737 030136 



004737 016464 

103405 

010001 

104455 
000634 
003550 
011506 

005037 002172 
052737 000001 027250 
010465 177776 
004737 016740 
103405 
010001 

104455 
000635 
027646 
011520 

104406 

104410 
000116 

005737 002172 
001404 

104456 
000636 
027735 
011520 

016501 000000 
012702 102206 
032701 000100 
001402 



BGNSUB 



SETPRI iPRIOO 



NOV fT42DATA.R3 
5$: NOV ffT4PACKET,R4 
JSR PC.T4REST 



JSR PC.SOFINIT 

BCS 10$ 

NOV R0.R1 

ERRDF ERRNO.SFIERR,SFINSG 



10S: CLR INTRECV 

BIS f1.T4DATA 

NOV R4.TSDB(R5) 

JSR PC.UAITF 

BCS 15S 

NOV R0,R1 

ERRDF ERRN0.T4SSR.PKTSSR 



15S: CKLOOP 

ESCAPE SUB 



TST INTRECV 
BEQ 22$ 

ERRHRD ERRN0.T4INT.PKTSSR 



22$: NOV TSSR(RS)«R1 

NOV fSC!SSR!TSREJ!NBA.R2 
BIT fOFL.RI 
BIO 25$ 



;//////////// BEGIN SUBTEST //////////// 
T4.3: 

TRAP CSBSUB 

.-LOWER PRIORITY TO ALLOW INTERRUPTS 

NOV fPRIOO.RO 
TRAP CSSPRI 
: START OF TEST DATA FOR SUBTEST 
;GET THE ADDRESS OF CONNAND PACKET 
.•RESTORE PACKET TO STARTING VALUES 



:D0 SOFT INIT OF CONTROLLER 

:BR IF SOFT INIT « OK 

:SAVE CONTENTS OF TSSR 

.•DEVICE FATAL ERROR DURING INIT 

TRAP CSERDF 
.WORD 412 
.WORD SFIERR 
.WORD SFINSG 

.•CLEAR INTERRUPT RECEIVED FLAG 

;NAKE ADDRESS ODD 

;SET THE PACKET ADDRESS 

.•WAIT FOR SSR TO SET 

;BR IF CARRY SET (GOOD RETURN) 

:SAVE CONTENTS OF TSSR 

.•DEVICE FATAL SSR FAILED TO SET 

TRAP CSERDF 
.WORD 413 
.WORD T4SSR 
.WORD PKTSSR 

.•LOOP ON ERROR. IF FLAG SET 

TRAP CSCLPI 

:BY-PASS SUBTEST IF FATAL ERROR 

TRAP CSESCAPE 
.WORD L10053-. 

.-DID AN INTERRUPT OCCUR ? 

;BRANCH IF NOT 



TRAP 
.WORD 
.WORD 
.WORD 

GET THE CONTENTS OF TSSR 
EXPECTED CONTENTS OF TSSR 
IS OFF-LINE BIT SET ? 
ftftAiifM If MPT mr-iim — 



CSERHRD 
414 
T4INT 
PKTSSR 



I 10 



C2loy^0 TUftO FRONT END PRT A 
TEST 4: yRlTE CHARACTERISTICS 
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4970 027150 

4971 027154 

4972 027156 

4973 027140 

4974 027142 
•.975 027152 
4976 027156 

4980 027160 
027160 
027162 
027164 
027166 

4981 027170 
027170 

4982 027172 

4983 027176 
4987 027200 

027200 
027202 
027204 
027206 

4988 

4989 027210 
027210 
027210 

4990 

4991 027212 

4992 027216 

4993 027220 

4994 027224 

4995 027224 
027224 
027226 

4996 
4997 
4998 
4999 

5000 

5002 027230 

5004 027240 

5005 027240 

5006 027242 

5007 027244 

5008 027246 
5009 

5010 027250 

5011 027250 

5012 027252 

5013 027254 

5014 027256 

5015 027260 
5016 

5017 027260 

5018 027264 
5019 

5020 



052702 
020201 
001414 
010100 

020027 
001404 

104456 
000637 
027550 
011520 

104406 
032701 
001004 

104456 
000640 
027320 
011520 



104403 

005737 
001402 
004737 



104432 
000756 



100004 
027250 
000000 
000010 



027264 
000000 
000016 
000000 



000100 



002000 



258: 



308: 



BIS 
CMP 
BEQ 
MOV 
XOR 
CMP 
BEQ 
ERRHRD 



CKLOOP 



fOFL,ft2 

R2.R1 

308 

R^.RO 

R2«n0 

RO.fNBA 

30S 

ERRN0,T44REJ,PKTSSR 



002000 



BIT fNBA.RI 
BNE 35$ 

ERRHRD ERRNO.T42NBA.PKTSSR 



358: 



002170 
017772 



608: 



ENDSUB 



TST 
BEQ 
JSR 



FATFLG 
60$ 

PCCKDROP 



EXIT TST 



.'LOCAL STORAGE FOR THIS TEST 



.BLKB 
T4PACKET: 

.UORD 
.UORO 
.WORD 
.WORD 



10-<.-TUV2Aft7> 

100004 
T4DATA 
0 
8. 



T4DATA: 



T4SP: 



.WORD T4BFR 

.WORD 0 

.WORD 14. 

.WORD 0 



000000 000000 



.WORD 0,0 
T4BFR; .BLKW 8. 

;♦ 



:SET OFF-LINE IN EXPECTED DATA 

;OOES EXPECTED MATCH RECEIVED ? 

;OKAY IF MATCH 

;DATA FROM TSSR 

;PINO BITS IN ERROR 

:IS NBA ONLY BIT IN ERROR ? 

.DON'T PRINT ERROR IF NBA ONLY BAD BIT 

.COMMAND NOT REJECTED 

TRAP C$ERHRO 
.WORD 415 
.WORD T44REJ 
.WORD PKTSSR 

:LOOP ON ERROR ? 

TRAP C$CLP1 

;IS NBA BIT SET ? 
:OKAY IF NBA SET 
.'NBA NOT SET 

TRAP C$ERHRD 
.WORD 416 
.WORD T42NBA 
.WORD PKTSSR 

;\\V\\\\\\\\V\ END SUBTEST WWWWWWV 
L10053: 

TRAP C$ESUB 

:ANY FATAL ERRORS ? 

:BRANCH IF NOT 

;TRY TO DROP THE UNIT 

:ALL DONE THIS TEST 

TRAP C$EXIT 
.WORD L10050-. 



.•COMMAND PACKET FOR TEST 

;WR1TE CHARACTERISTICS COMMAND. WITH ACK 

.-ADDRESS OF CHARACTERISTICS BLOCK 

:START1N6 VALUE OF BLOCK SIZE 

.•CHARACTERISTICS DATA BLOCK 
.•ADDRESS OF MESSAGE BUFFER 

: LENGTH OF MESSAGE BUFFER 



.SPACE 

.•MESSAGE BUFFER 



CZTUWAO TU80 FRONT END PRT A 
TEST 4: WRITE CHARACTERISTICS 



5022 
5023 
5024 
5025 
5026 
5027 
5028 
5029 
5030 

5031 027304 

5032 027304 

5033 027310 

5034 027314 



5035 
5036 
5037 
5038 
5039 
5040 
5041 

5042 027320 

5043 027376 

5044 027451 

5045 027550 

5046 027646 

5047 027735 

5048 030024 

5049 030107 
5050 

S0S1 



000000 
000002 
000004 
027320 



116 
127 
127 
127 
103 
125 
111 
127 



037140 
000001 
100100 



102 
122 
122 
122 
157 
156 
156 
162 
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TEST DATA FOR SUBTEST TbO 
DATA HAS FORHAT: 



SEO 126 



1ST WORD 
2ND WORD 



OFFSET TO TEST WORD IN PACKET 
BITS TO SET FOR TEST 



T42DATA: 

.WORD 
.WORD 
.WORD 
T42D0NES. 



O.Bn5!BIT6!BIT9>BIT10!BlT11!8IT12!6IT13 

2.BIT0 

4.BIT6!BIT15 



; LOCAL TEXT MESSAGES FOR TEST 



101 T42NBA: 

111 T4NBA: 

111 T42REJ: 

111 T44REJ: 

156 T4SSR: 

US T4INT: 

143 T4TS8A: 

151 TST41D: 



.ASCIZ 'NBA Not Stt On Rtjfctffd WRITE CHARACTERISTICS* 

.ASCIZ 'WRITE CHARACTERISTICS COMaand Not Acctpttd* 

.ASCIZ 'WRITE CHARACTERISTICS Not Rtltcttd With Non-Ztro Unuttd Fitldt* 

.ASCIZ 'WRITE CHARACTERISTICS Not Rtjtctfd With Invalid Block Addrtss* 

.ASCIZ 'Contents of TSSR Incorrtct Afttr WRITE CHARACTERISTICS* 

.ASCIZ 'Untxptcttd Interrupt Rtctlvtd On WRITE CHARACTERISTICS* 

.ASCIZ 'Incorrtct TSBA Addrtst Afctr WRITE CHARACTERISTICS' 

.ASCIZ 'Writt Characttrfstlcs' 

.EVEN 



K 10 



CZTUUAO TU80 FRONT END PRT A 
TEST 4: MIITE CHARACTERISTICS 



S0S3 






50)4 












C AC^ 






5057 






5058 






505t 






5060 030136 






KAA1 AVA1 

5Uo1 030136 






)U6c 0301^2 


A1 9VA1 
01 Zf 01 


A979AA 

02/240 


>063 03Q1^O 


OlcrZI 


1 AAAAl. 
100004 


>UD^ U3U1)c 


A1 9791 


n979KA 








>UOO U3Q1M/ 


M 9791 


AAAA1 A 




ni9791 


•\979A/, 

'crcM 


^MA 0V)170 






5069 030172 


012721 


C00020 


5070 030176 


005021 




5071 030200 


005011 




5072 030202 


000207 




5073 030204 






030204 






030204 


104401 
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ROUTINE TO RESTUPF. COHHAND PACKET TO START-UP (DEFAULT) VALUES 



T4REST: 



SEO 127 



SAVRE6 




.-SAVE THE REGISTERS 


NOV 


fT4PACKET,R1 


.-START OF THE PACKET 


NOV 


ff1C0004,(R1)« 


:URITE CHARACTERISTICS WITH ACK 


NOV 


«T40ATA,(R1)« 


.'ADDRESS OF CHAR DATA BLOCK 


CLR 


(RD* 


.•EXTENDED ADDRESS 


NOV 


f8.,(R1)» 


:SIZE OF DATA BLOCK IN BYTES 


NOV 


«T4BFR.(R1)* 


.'ADDRESS OF NESSA6E BUFFER 


CLR 


(R1)« 


NOV 


•16.,(R1)« 


.•LENGTH OF NESSA6E BUMER 


CLR 


(RD* 


CLR 


(ftl) 




RTS 


PC 


;RETURN 


ENDTST 





L100S0: 



5074 



TRAP 



C6ETST 



L 10 



CZ^JUAO TU80 FRONT END PRT A 
TEST 5: VOLUME CHECK 

5076 

5077 

5078 

5079 

5080 

5081 

5082 

5085 

5084 

5085 

5086 

5087 

5088 

5089 

5090 

5091 

5092 

5093 

5094 

5095 

5096 

5097 

5098 

5099 

5100 

5101 

5102 

5103 

5104 

510S 

5106 

5107 

5108 

5109 

5110 030206 
030206 

5111 030206 00S037 002170 

5112 030212 012737 005672 

5113 030220 005037 003100 

5118 030224 012700 031377 

5119 030230 004737 017226 

5120 030234 012737 000002 

5121 030242 
5122 

5123 030242 012704 030710 

5124 030246 012702 030732 

5125 030252 012762 052525 

5126 030260 004737 016464 

5127 030264 103405 

5131 030266 010001 

5132 030270 
030270 104455 
030272 000765 
030274 003550 
030276 011506 

5133 030300 042714 040000 

5134 030304 010465 177776 
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.SBTTL TEST 5: VOLUME CHECK 



SEQ 128 



THIS TES^ VERIFIES THAT THE VOLUME CHECK (VCK) 81 T« A FLAG HELD 
WITHIN THE 117454 AND APPEARING IN XST0« IS SET BY INITIALIZE AND 
CLEARED BY EXECUTING A WRITE CHARACTERISTICS COMMAND WITH THE 
CVC BIT SET. IT IS ALSO VERIFIED THAT A WRITE CHARACTERISTICS 
COMMAND WITH THE CVC BIT CLEAR DOES NOT AFFECT THE STATE OF THE 
VOLUME CHECK BIT. THE ACTUAL FUNCTION OF VOLUME CHECK. THAT OF 
PREVENTING OR ALLOWING A TAPE MOTION COMMAND DEPENDING UPON 
WHETHER VOLUME CHECK IS SET OR CLEAR. IS NOT CHECKED BY THIS 
TEST; THIS FUNCTIONALITY IS CHECKED IN THE INDIVIDUAL TESTS OF 
TAPE MOTION COMMANDS. 

THE TEST PROCEEDS AS FOLLOWS: 

1. THE CONTROLLER IS INITIALIZED BY WRITING INTO THE TSSR. 

2. A WRITE CHARACTERISTICS COMMAND IS ISSUED (WITH CVC^O) 
AND XSTO IN THE RETURNED MESSAGE BUFFER IS EXAMINED; 
THE VCK BIT SHOULD BE CLEAR (0). 

3. THE PREVIOUS STEP tS REPEATED TO VERIFY THAT VCK DOES 
NOT CHANGE (REMAINS AT 0). 

4. A WRITE CHARACTERISTICS COMMAND IS ISSUED WITH CVC^I 
AND THE VCK BIT IN XSTO iN THE MESSAGE BUFFER IS 
EXAMINED; THE VCK BIT SHOULD BE CLEAR (0). 

5. A WRITE CHARACTERISTICS COMMAND IS ISSUED WITH CVC-0 
AND TNE VCK BIT IN XSTO IN THE MESSAGE BUFFER IS 
EXAMINED: THE VCK BIT SHOULD REMAIN CLEAR (0). 



002146 



002164 



000006 



T5L00P: 



S$: 



B6NTST 

CLR 
MOV 
CLR 
MOV 
JSR 
MOV 



FATFLG 

fEPRTI .EPRTSW 

KTFLG 

fTST5ID.R0 

PC.TSTSETUP 

f2.,L00PCNT 



T5: : 

;CLEAR FATAL ERRORFLAG 
;SET UP ERROR MESSAGE SWITCH 
;NOLD OFF KT11 

;ASCII MESSAGE TO IDENTIFY TEST 
;D0 INITIAL TEST SETUP 
; PERFORM 2 ITERATIONS 



MOV 
MOV 
MOV 
JSR 
BCS 
MOV 
ERRDF 



10$: 



BIC 
MOV 



fT5PACKET.R4 

#T5BFR.R2 

f 052525. XST0(R2) 

PC.SOFINIT 

10$ 

R0.R1 

ERRN0.SFIERR.SFIMS6 



fBIT14.(R4) 
R4.TSDB(R5) 



;PACKET FOR WRITE CHARACTERISTICS 

;ADDRESS OF THE MESSAGE BUFFER 

;SET XSTATO TO KNOWN VALUE 

;D0 SOFT INIT OF CONTROLLER 

;BR IF SOFT INIT s OK 

;SAVE CONTENTS OF TSSR 

;DEVICE FATAL ERROR DURING INIT 

TRAP CSERDF 
.WORD 501 
.WORD SFIERR 
.WORD SFIMSG 

; CLEAR THE CVC BIT 

;SgT TMg PACKPT ADDRESS FOR WRITE CMAB 



CZTUVAO TU80 FRONT END PRT A 
TEST S: VOLUME CHECK 



5135 030310 

5136 0303U 

5137 030316 
5U1 030320 

030320 
030322 
030324 
030326 

5142 030330 
030330 

SU3 030332 
030332 
030334 

5144 030336 

5145 030342 

5146 030346 

5147 030350 

5151 030354 
030354 
030356 
030360 
030362 

5152 030364 

5153 030372 

5157 030374 

5158 030400 
030400 
030402 
030404 
030406 

5159 030410 
030410 

5160 030412 

5161 030416 

5162 030422 

5163 030424 

5167 030426 
030426 
030430 
030432 
030434 

5168 030436 
030436 

5169 030440 
030440 
030442 

5170 03044/ 

5171 030450 

5175 030452 

5176 030456 
030456 
030460 
030462 
030464 

5177 030466 
030466 

5178 030470 



004737 
103405 
010001 

104455 
000766 
031211 
011520 

104406 

104410 
001060 
016203 
020327 
001006 
016501 

104456 
000767 
031300 
011520 
032762 
001006 
016501 

104456 
000770 
031045 
011574 

104406 
010465 
004737 
103405 
010001 

104455 
000771 
031211 
011520 

104406 

104410 
000752 
026203 
001406 
016501 

104456 
000772 
031121 
011574 

104406 
032762 



017054 
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JSR PC.CHKTSSR 

BCS 15$ 

NOV R0.R1 

ERRDF EPRN0.T5SSR,PKTSSR 



15$: 



000006 
052525 

000000 



000020 000006 20$: 
000000 



23$: 



177776 
017054 



25$: 



000006 
000000 



CKLOOP 
ESCAPE TST 



NOV 
CNP 
BNE 
NOV 
ERRHRD 



BIT 
BNE 
NOV 
ERRHRD 



CKLOOP 

NOV 
JSR 
BCS 
NOV 
ERRDF 



XST0(R2>.R3 . 

R3.«0525l5 

20$ 

TSSR(R5),R1 
ERRN0,T5NNSG,PKTSSR 



fXS0VCK.XST0(R2) 
23$ 

TSSR(R5>,R1 
ERRN0,T5VCK2,PKTNES 



R4,TSDB(R5) 
PC.CHKTSSR 
25$ 
RO.RI 

ERRN0,T5SSR,PKTSSR 



27$: 

000020 000006 30$: 



CKLOOP 
ESCAPE TST 



CNP XST0(R2>,R3 

BEQ 27$ 

NOV TSSR(R5>,R1 

ERRHRD ERRN0J5NVCK,PKTNES 



CKLOOP 

BIT fXS0VCK.XST0(R2) 



SEQ 129 



CSERDF 
502 
T5SSR 
PKTSSR 



.-WAIT FOR SSR TO SET 
;BR IF CARRY SET (GOOD RETURN) 
;SAVE CONTENTS OF TSSR 
.DEVICE FATAL SSR FAILED TO SET 

TRAP 

.UORD 

.WORD 

.WORD 

;LOOP ON ERROR, IF FLAG SET 

TRAP CSCLPI 

.EXIT IF FATAL ERROR 

TRAP CSESCAPE 
.WORD L10054-. 

.•STORE STATUS FOR A WHILE 

.•CHECK FOR XSTATO OVER WRITTEN (GOOD!) 

;BR. IF XSTATO HAS BEEN UPDATED 

;PICK UP TSSR FOR ERROR PRINTOUT 

;*>I0 NESSAGE PACKET RETURNED' 

TRAP CSERHRD 
.WORD 503 
.WORD T5NNSG 
WORD PKTSSR 

;IS VOLUHE CHECK CLEAR IN XSTO ? 

;OKAY IF VOLUME CHECK IS CLEARED 

.•CONTENTS OF TSSR FOR ERROR REPORT 

.'VOLUME CHECK NOT SET 



.'LOOP ON ERROR ? 



TRAP 
.WORD 
.WORD 
.WORD 



CSERHRD 
504 

T5VCK2 
PKTHES 



TRAP CSCLPI 



:SET THE PACKET ADDRESS FOR WRITE CHAR 

.•WAIT FOR SSR TO SET 

;BR IF CARRY SET (GOOD RETURN) 

.•SAVE CONTENTS OF TSSR 

fDEVICE FATAL SSR FAILED TO SET 

TRAP CSERDF 
.WORD 505 
.WORD T5SSR 
WORD PKTSSR 

;LOOP ON ERROR. IF FLAG SET 



:EXIT IF FATAL ERROR 



TRAP C$CLP1 



TItAP 
.WORD 



C$ESCAPE 
L10054-. 



.•THE XSTO SHOULD NOT HAVE CHANGED 
.OKAY IF VOLUME CHECK IS SET 
; CONTENTS OF TSSR FOR ERROR REPORT 
.'VOLUME CHECK NOT SET 

TRAP CSERHRD 
.WORD 506 
.WORD T5NVCK 
.WORD PKTHES 

:LOOP ON ERROR ? 

TRAP CSCLPI 
■MS WOLUMg CHgCK SgT IN KSTQ ? 



CZTUUAO TU80 FRONT END PRT A 
TEST S: VOLUME CHECK 





001006 




91 o9 030)00 


OioSOl 


000000 


31 M 090704 






03030A 


« A/ 

104436 




AlACAA 

OSOSOo 


OOOffJ 




AVAC1 A 

Q30)10 


AVI A1.C 

031043 




0^31 e 


A1 1 C7Z 




CISC AVAC1A 
3163 








iAZ.Z.AiL 

lU4*UO 




3100 U3v310 


AC971^ 


n/.AAAA 

U4UUUU 


C1ft7 nXAC?) 
31 Or U3U3CC 


U1U4»03 


1 7777A 
1 f f f f 0 


3IOO U3U3cO 


AAA7»7 

UWr 3f 


A1 7nC£ 
Ul rU34 


<1JIQ nXflCX9 
3 1 Ot U3U33C 


1 U3<iU3 




CI OA nXACX^ 


A1AAA1 




3It*i U3U330 






AIACVI 
v3V330 


I\I*»*I33 




U3VI31W 


AAA77& 




V3v3*IC 


AY1911 
v3 1 c 1 1 






A1 1 S9A 

U 1 1 3Cv 




3 1 V3W310 






A«AC^^ 
w3U31w 






CI OA nxns^Q 

3ITO W3V73W 






w3V33w 






A'lACCO 
w3w33C 


Afl(M49 

vWQ'IC 




CI 07 0^SS4 


v3CrOC 


AAAA9A 


CI Oft 0'90S&9 

3 1 TO v3v30C 


AA1 LOl^ 




S907 O'^OSIUL 

3CwC U3w3w*l 


AI^CAI 
W I03V 1 


AAAAAA 
VUwUUV 


3CVJ V3w3rV 






AVAC7A 
U3U3> V 


1 V*t<l30 




AYAC79 


AAA77S 
VUvf f 3 




A1AC74 


AXA7S9 

U3wr 7c 




v3V3rO 


A1 1 K7L 




3Cw*> w3VOWw 






AXAAAA 


1 A££AA 
1 U«i"lVO 




C3AC A1AA09 

2CV3 wJVwwC 


0^971 & 


AAAAAA 


3Cww w3Uwwv 


W 1 U*I03 


1 7777A 
ifff r O 


S9A7 AYAA19 


AAA 7X7 

wU"»r 3r 


A1 7ACA 
U 1 r U3*i 


C^Ag AXAAII^ 

3CUO w3UwlO 


1AX£AS 
1 W31U3 




S9A0 AV)A9A 
3Cw7 v3wOCv 


A1AAA1 




3c 1 3 v3UDcC 






AXAA99 


Iw*»"l33 




v3UUC^ 


AAA77A 




AXAA9A 


AX191 1 




AYAAXA 
w3Ww3w 


A11S9A 
U 1 1 3CV 




3CI1 U3VD3C 






W3U03C 


1 W*l*iUO 




JC 1 3 w3V03*t 






U3vm^ 






U3VD30 


vUv330 




S216 030640 


0X2762 


000020 


S217 030646 


00U06 




S221 030650 


016501 


000000 


5222 030654 






330654 


104456 




030656 


000777 




030660 


031121 




030662 


011574 





N 10 
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BNE 33t 

NOV TSSR(R5),R1 

ERRHRD ERRNO,T5VCK2,PKTNES 



33$: 



35$: 



40$: 



45$: 



CKLOOP 

BIS 
MOV 
JSR 
BCS 
MOV 
ERRDF 



«BIT14,(R4) 

R4.TSDB(R5) 

PC.CHKTSSR 

35$ 

RO.RI 

ERRN0.T5SSR«PKTSSR 



CKLOOP 
ESCAPE TST 



BIT 
BEQ 
MOV 
ERRHRD 



CKLOOP 

BIC 
MOV 
JSR 
BCS 
NOV 
ERRDF 



«XS0VCK,XST0(R2) 
40$ 

TSSR(R5),R1 
ERRN0,t5VCK.PKTHES 



fBni4,(R4) 

R4,TS0B(R5) 

PC.CHKTSSR 

45$ 

R0,R1 

ERRN0.T5SSR.PKTSSR 



CKLOOP 
ESCAPE TST 



BIT «XS0VCK.XST0(R2) 

BEQ 50$ 

NOV TSSR(R5),R1 

ERRHRD ERRN0,T5NVCK.PKTNES 



;0KAy IF VOLUME CHECK IS SET 
; CONTENTS OF TSSR FOR ERROR REPORT 



;VOLUnE CHECK NOT SET 



TRAP 
.WORD 
.WORD 
.WORD 



CSERHRD 
507 
T5VCK2 
P'CTMES 



;L00P ON ERROR ? 

TRAP CSCLPI 

;SET THE CVC BIT 

;SET THE PACKET ADDRESS FOR WRITE CHAR 

;WAIT FOR SSR TO SET 

;BR IF CARRY SET (GOOD RETURN) 

;SAVE CONTENTS OF TSSR 

;DEVICE FATAL SSR FAILED TO SET 

TRAP C$ERDF 
.WORD 508 
.WORD T5SSR 
.WORD PKTSSR 

;LOOP ON ERROR, IF FLAG SET 

TRAP CSCLPI 

;EXIT IF FATAL ERROR 

TRAP C$ESCAPE 
.WORD L10054-. 

IS VOLUME CHECK CLEAR IN XSTO ? 

OKAY IF VOLUME CHECK IS CLEARED 

CONTENTS OF TSSR FOR ERROR REPORT 

VOLUME CHECK NOT CLEARED 

TRAP 



iLOOP ON ERROR ? 



.WORD 
.WORD 
.WORD 



CSERHRD 
509 
T5VCK 
PKTMES 



TRAP C$CLP1 
'CLEAR THE CVC BIT 

•SET THE PACKET ADDRESS FOR WRITE CHAR 

;WAIT FOR SSR TO SET 

;BR IF CARRY SET (GOOD RETURN) 

;SAVE CONTENTS OF TSSR 

;DEVICE FATAL SSR FAILED TO SET 

TRAP CSERDF 
.WORD 510 
.WORD T5SSR 
.WORD PKTSSR 

;LOOP ON ERROR. IF FLAG SET 

TRAP C$CLP1 

;EXIT IF FATAL ERROR 

TRAP CSESCAPE 
.WORD L10054-. 

;IS VOLUME CHECK CLEAR IN XSTO ? 

;OKAY IF VOLUME CHECK IS CLEARED 

; CONTENTS OF TSSR FOR ERROR REPORT 

; VOLUME CHECK NOT CLEARED 

TRAP CSERHRD 
.WORD 511 
.WORD T5NVCK 



TEST 5: VOLUME CHECK 



5223 030664 
030664 

5224 030666 

5225 030672 

5226 030674 

5227 030700 
030700 
030702 

5228 
5229 
5230 
5231 
5232 

5234 030704 

5236 030710 

5237 030710 

5238 030712 

5239 030714 

5240 030716 
5241 

5242 030720 

5243 030720 

5244 030722 

5245 030724 

5246 030726 
5247 

5248 030732 

5249 

5250 

5251 

5252 

5253 

5254 

5255 030752 

5256 031045 

5257 031121 

5258 031211 

5259 031300 

5260 031377 
5261 

S262 031414 
031414 
031414 



104406 
004737 
103002 
000137 

104432 
000512 



100004 
030720 
000000 
000010 



030732 
000000 
000020 
000000 



126 
126 
126 
103 
116 
126 



104401 



017174 
030242 



000000 



103 
103 
103 
157 
157 
157 



113 
113 
113 
156 
040 
154 



50S: CKLOOP 

60$: JSR PC.TSTLOOP 

BCC 6?S 

JMP T5LU0P 

62S: EXIT TST 



.•LOCAL STORAGE FOR THIS TEST 



.BLKB 
TSPACKET: 

.UORD 
.WORD 
.WORD 
.WORD 



T5DATA: 



.WORD 
.WORD 
.WORD 
.WORD 



10-<.-TOV2A87> 

100004 
T5DATA 
0 
10 



TSBFR 
0 

16. 
0.0 



TSBFR: .BLKW 8. 



;LOCAL TEXT MESSAGES FOR TEST 



:LOOP ON ERROR ? 

TRAP 

: SHOULD WE 00 ITERATIONS ? 
:bRANCH IF NOT 
.LOOP UNTIL COUNT EXPIRED 
;ALL DONE THIS TEST 

TRAP 
.WORD 



CtCLPI 



CIEXIT 
LI 0054. 



.'COMMAND PACKET FOR TEST 
.•WRITE CHARACTERISTICS COMMAND 
;ADDRESS OF CHARACTERISTICS BLOCK 

; STARTING VALUE OF COUNTER 

:CHARACTERISTICS DATA BLOCK 
.•ADDRESS OF MESSAGE BUFFER 

.'LENGTH OF MESSAGE BUFFER 



.'MESSAGE BUFFER 



T5VCK: 

T5VCK2: 

T5NVCK: 

TSSSR: 

T5NMSG: 

TSTSID: 



.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.EVEN 

ENDTST 



'VCK Bit NOT Clftrtd Afttr WRITE CHARACTERISTICS With CVC-1' 

*VCK Bit NOT Stt Afttr INITIALIZE With CVC-O* 

*VCK Bit Modified Afttr WRITE CHARACTERISTICS With CVC-O* 

*Conttnts of TSSR Incorrtct Afttr Writt Characttrlstlcs* 

'No Mtsstgt Packtt Rtturntd To Host Afttr WRITE CHARACTERISTICS* 

*VoluM Chtck* 



LI 0054: 



TRAP CtETST 



t 



C 11 



CZTUUAO TU80 FRONT END PRT A 
TEST 6: COMPLETION INTERRUPT 



5264 
5265 
5266 
5267 
5268 
5269 
5270 
5271 
5272 
5273 
5274 
5275 
5276 
5277 
5278 
5279 
5280 
5281 
5282 

5283 03U16 
05U16 

5284 03U16 005037 

5285 031422 012737 

5286 031430 005037 
5291 031434 012700 
529? 031440 004737 

5293 031444 012737 

5294 0314S2 

5295 031452 
031452 

031452 104402 

5296 

5297 031454 004737 

5298 031460 
031460 012700 
031464 104441 

5299 031466 012703 

5300 031472 012704 

5301 031476 012764 

5302 031504 

5303 031504 
031504 104404 

5304 

5305 031506 004737 

5306 031512 103405 

5310 031514 010001 

5311 031516 
031516 104455 
031520 001131 
031522 003550 
031524 011506 

5312 031526 005037 

5313 031532 005037 

5314 031536 010465 

5315 031542 004737 

5316 0S1S46 103407 
S«17 0^1 5M 010001 
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SEQ 132 



002170 

005672 002146 
003100 
033371 
017226 

000002 002164 



033416 

000000 

002732 
032320 

000010 000006 



016464 



St: 



002170 
002172 
177776 
017054 



IDS: 



.SBTTL TEST 6: COMPLETION INTERRUPT 



THIS TES^ VERIFIES THAT AN INTERRUPT IS GENERATED AT THE 
COMPLETION OF THE WRITE CHARACTERISTICS COMMAND IF THE INTERRUPT 
ENABLE (IE) BIT IN THE COMMAND HEADER WORD IS SET. THIS TEST 
CHECKS THE FUNCTIONING OF THE INTERRUPT LOGIC AND BASIC 
PROCESSING OF THE IE BIT. 

THE SEQUENCES OF TEST 7 ARE REPEATED. EXCEPT THAT THE INTERRUPT 
SERVICE ROUTINE IS SET UP TO EXPECT INTERRUPTS AND EACH WRITE 
CHARACTERISTICS COMMAND IS ISSUED UITH THE IE BIT SET (1). IT 
IS VERIFIED. WHERE APPROPRIATE. THAT THE IE STATUS BIT IN XSTO 
OF ANY MESSAGE PACKET IS SET AND THAT A COMPLETION INTERRUPT IS 
GENERATED. FINALLY. A SEQUENCE OF TWO COMMANDS ARE ISSUED. THE 
FIRST WITH IE«1 AND THE SECOND WITH IE«0. IT IS VERIFIED THAT 
NO INTERRUPT IS GENERATED AFTER THE SECOND COMMAND AND THAT THE 
IE BIT IN XSTO IS 0. 



T6L00P: 



BGNTST 

CLR 
NOV 
CLR 
NOV 
JSR 
MOV 

BGNSUB 



FATFLG 

fEPRTI.EPRTSW 

KTFLG 

fTST6ID.R0 

PC.TSTSETUP 

f2..L00PCNT 



JSR PC.T6REST 
SETPRI fPRIOO 



NOV 
NOV 
NOV 

86NSEG 



JSR 
BCS 
NOV 
ERRDF 



CLR 
CLR 
NOV 
JSR 
BCS 
NOV 



fTSTBLKM0..R3 

fT6PACKET.R4 

«8..PKBCNT(R4) 



T6:: 

.CLEAR FATAL ERROR FLAG 
.SET UP ERROR MESSAGE SWITCH 
;HOLD OFF KT11 

;ASCII MESSAGE TO IDENTIFY TEST 
;D0 INITIAL TEST SETUP 
;Pi:RFORM 2 ITERATIONS 

;//////////// BEGIN SUBTEST //////////// 
T6.1: 

TRAP CSBSUB 

.SET PACKET TO INITIAL VALUES 
.'LOWER PRIORITY TO ALLOW INTERRUPTS 

NOV fPRIOO.RO 
TRAP CSSPRI 

: START OF TEST DATA 

.GET THE ADDRESS OF COMMAND PACKET 

; START WITH NININUN ALLOWABLE VALUE 

;»»»»»» BEGIN SEGMENT »»»»»» 

TRAP CSBSEG 



PC.SOFINIT 

10S 

R0.R1 

ERRNO.SFIERR.SFINSG 



FATFLG 
INTRECV 
R4.TSDB(R5) 
PC.CHKTSSR 
15t 
R0.R1 



;D0 SOFT I NIT OF CONTROLLER 

;BR IF SOFT INIT s OK 

.-SAVE CONTENTS OF TSSR 

.•DEVICE FATAL ERROR DURING INIT 

TRAP 
.WORD 
.WORD 
.WORD 

CLEAR FATAL ERROR FLAG 

CLEAR INTERRUPT RECEIVED FLAG 

SET THE PACKET ADDRESS 

WAIT FOR SSR TO SET 

BR IF CARRY SET (GOOD RETURN) 

<4WP fHMTgMTS OS TSM 



CtERDF 
601 

SFIERR 
SFIMSG 



0 11 



CZTUWAO TueO FRONT EM PRT A 
TEST 6: CCn^LETlON INTERRUPT 



5321 031 552 






031552 


104455 




031554 


001132 




031556 


033037 




031560 


011520 




5322 031562 


004737 


017720 


5323 031566 






031566 


104406 




5324 031570 






031570 


104410 




031572 


000056 




5325 031574 


005737 


002172 


5326 031600 


001004 


5330 031602 






031602 


104456 




031604 


001133 




031606 


033126 




031610 


011520 




5331 031612 


016501 


000000 


5332 031616 


012702 


000200 


5333 031622 


032701 


000100 


5334 031626 


001402 




5335 031630 


052702 


000100 


5336 031634 


020201 




5337 031636 


001404 




S341 031640 






031640 


104456 




031642 


001134 




031644 


032376 




031646 


011520 




5342 031650 






5343 031650 






0316S0 






031650 


104405 




S344 






S34S 0316S2 


012364 


000006 


5346 031656 


020327 


003030 


5347 031662 


103002 




5348 031664 


000137 


031504 


5349 






S3S0 031670 






031670 






031670 


104403 




5351 






5352 031672 


005737 


002170 


5353 031676 


001402 


SS54 031700 


004737 


017772 


S3SS 031704 
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ERRDF ERRN0.T6SSR,PKTSSR 



15S: 



22S: 



25$: 



30S: 



55S: 



JSR PC.FATCHK 
CKLOOP 

ESCAPE SE6 



TST INTRECV 
BNE 22S 

ERRHRD ERRN0,T6NINT,PKTSSR 



NOV 
NOV 
BIT 
BEO 
BIS 
CNP 
BEO 



ENDSE6 



NOV 
CNP 
BHIS 
JNP 

ENOSUB 



TSSR(R5),R1 
fSSR.R2 
fOFL.RI 
25S 

fOFL,R2 
R2,R1 
30$ 



ERRHRD ERRN0.T6NBA.PKTSSR 



(R3>«,PKBCNT(R4> 

R3,ffTBLEN0 

55$ 

SS 



70$: 



TST FATFL6 

BEO 70$ 

JSR PC.CKDROP 



.•DEVICE FATAL SSR FARED TO SET 

TRAP C$ERDF 
.WORD 602 
.yORD T6S$R 
.WORD PKTSSR 

;1NC AND CHECK FOR NORE THAN 25 ERRORS 

.•LOOP ON ERROR, IF FLAG SET 

TRAP C$CLP1 

:BV-PASS SUBTEST IF FATAL ERROR 

TRAP CKSCAPE 
.WORD 10000$-. 

;DID AN INTERRUPT OCCUR ? 

.•BRANCH IF VES 

TRAP C$ERHRD 
.WORD 603 
.WORD T6N1NT 
.WORD PKTSSR 

;6ET THE CONTENTS OF TSSR 

.•EXPECTED CONTENTS OF TSSR 

:IS OFF-LINE BIT SET ? 

.•BRANCH IF NOT OFF-LINE 

:SET OFF-LINE IN EXPECTED DATA 

.•DOES EXPECTED HATCH RECEIVED ? 

.•OKAY IF NATCH 

;NBA NOT ZERO 

TRAP CSERHRD 
.WORD 604 
.WORD T6NBA 
.WORD PKTSSR 

;««««««< END SEGMENT ««««««< 
10000$: 

TRAP C$ESE6 

;SET THE TEST WORD 
:HAS ALL DATA BEEN TESTED ? 
.•BRANCH IF ALL DATA DONE 
.•BRANCH TILL BACK TO ZERO 

;\\\\\\\\\\\\\ END SUBTEST WWWWVWW 
Li 0056: 

TRAP CSESUB 

.-ANY FATAL ERRORS ? 

.'BRANCH IF NOT 

;TRY TO DROP THE UNIT 



E 11 



000000 

032362 
032320 
033416 



016464 



CZTUUAO TU80 FRONT END PRT A 
TEST 6: COftPLETlOM INTERRUPT 

5357 
5358 
5359 
5360 
5361 
5362 
5363 
5364 
5365 

5366 031704 
031704 

031704 104402 

5367 

5368 031706 
031706 012700 
031712 104441 

5369 031714 012703 

5370 031720 012704 

5371 031724 004737 
5372 

5373 031730 

031730 104404 

5374 

5375 031732 004737 

5376 031736 103405 

5380 031740 010001 

5381 031742 
031742 104455 
031744 001135 
031746 003550 
031750 011506 

5382 031752 005037 

5383 031756 010400 

5384 031760 061300 

5385 031762 056310 

5386 031766 010465 

5387 031772 004737 

5388 031776 103405 

5389 032000 010001 

5393 032002 
032002 104455 
032004 001136 
032006 033037 
032010 011520 

5394 032012 
032012 104406 

5395 032014 
032014 104410 
032016 000056 

5396 032020 005737 002172 

5397 032024 001004 
5401 032026 

032026 104456 
032030 001137 
032032 033126 
0S2034 011520 

^A> A1MA1 AAAAAA 
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TEST 6. SUBTEST 2 



SEO 134 



CHECK THAT UNUSED HiTS BEING SET CAUSES 
WRITE CHARACTERISTICS COfWANO TO BE REJECTED 



5S: 



002172 



000002 
177776 
016740 



10$: 



158: 



BGNSUB 



SETPRI fPRIOO 



NOV fT62DATA.R3 

NOV fT6PACKET,R4 

JSR PC,T6REST 

BGNSE6 



JSR PC.SOFINIT 

BCS 10S 

NOV R0.R1 

ERRDf ERRNO.SFIERR.SFINSG 



CLR INTRECV 

NOV R4.R0 

ADD (R3>,R0 

BIS 2(R3),(R0) 

NOV R4,TSDB(R5} 

JSR PCWAITf 

BCS 15$ 

NOV RO.RI 

ERRDF ERRN0.T6SSR.PKTSSR 



CKLOOP 
ESCAPE SE6 



TST INTRECV 
BNE 22$ 

ERRHRD ERRN0,T6NINT.PKTSSR 



;//////////// BEGIN SUBTEST //////////// 
T6.2: 

TRAP C$BSUB 

.-LOWER PRIORITY TO ALLOW INTERRUPTS 

NOV 9PR100.R0 
TRAP C$SPRI 
; START OF TEST DATA FOR SUBTEST 
:GET THE ADDRESS OF CONNAND PACKET 
.RESTORE PACKET TO STARTING VALUES 

;»»»»»» BEGIN SEGNENT »»»»»» 

TRAP C$6S£G 

;D0 SOFT INIT OF CONTROLLER 

;BR IF SOFT INIT « OK 

.-SAVE CONTENTS OF TSSR 

:DkVICE FATAL ERROR DURING INIT 

TRAP CSERDF 
.WORD 605 
.WORD SFIERR 
.WORD SFINSb 

.CLEAR INTERRUPT RECEIVED FLAG 

: START OF THE CONNAND PACKET 

.•OFFSET TO THE DATA WORD TO TEST 

;SET THE DATA BITS TO BE TESTED 

;SET THE PACKET ADDRESS 

;WA|T FOR SSR TO SET 

:BR IF CARRY SET (GOOD RETURN) 

;SAVE CONTENTS OF TSSR 

;DEVICE FATAL SSR FAILED TO SET 

TRAP C$ERDF 
.WORD 606 
.WORD T6SSR 
.WORD PKTSSR 

;LOOP ON ERROR. IF FLAG SET 

TRAP C$CLP1 

:BY-PASS CHECKS IF FATAL ERROR 

TRAP C$ESCAPE 
.WORD 10000$-. 

.'DID AN INTERRUPT OCCUR ? 

:BRANCH IF YES 



9?$! 



NOV 



TSSR(R5>.R1 



.'fifT mi CONTENTS Of 



TRAP 
.WORD 
.WORD 
.WORD 
TSSR 



CSERHRD 
607 
T6NINT 
PKTSSR 



CZTIMAO TU80 FRONT END PRT A 
TEST 6: COHPIETION INTERRUPT 



F n 

MACRO N1200 29-MAR-83 13:24 PAGE 81-1 



fSC!SSR!TSIiEJ!NeA,R2 

fOFL.RI 

2$S 

#0FL.R2 

R2.N1 

SOS 

ERRN0,T62REJ,PKTSSR 



SEO 15S 



$405 032042 


012702 


102206 




HOV 


$404 032046 


032701 


000100 




BIT 


$40$ 0320$2 


001402 






BFO 


$406 0320$4 


0$2702 


000100 




BIS 


$407 032060 


020201 




2$S: 


CMP 


$40S 032062 


001404 






BEO 


$412 032064 








ERRNRD 


032064 


1044$6 








032066 


001140 








032070 


0324$1 








032072 


Oil $20 








$413 032074 






30t: 




$414 032074 








ENDSE6 


032074 










032074 


10440$ 








$41$ 










$416 032076 


062703 


000004 




ADD 


$417 032102 


020327 


032376 




CMP 


S418 032106 


103002 






BHIS 


S419 032110 


000137 


031720 




JMP 


$420 










$421 032114 






$9$: 


ENOSUB 


032114 










032114 


104403 









ff4.R3 

R3«fT6200NE 

$9S 

SS 



.EXPECTED CONTENTS OF TSSR 

:IS OFF-LINE BIT SET ? 

.BRANCH IF NOT OFF-LINE 

:SET OFF-LINE IN EXPECTED DATA 

.DOES EXPECTED NATCH RECEIVED ? 

:OKAY IF NATCH 

.-COfWAND NOT REJECTED 

TRAP 
.UORD 
.WORD 
.VORD 



CtERHRD 
608 
T62REJ 
PKTSSR 



;««««««< END SEGMENT ««««««< 
10000$: 

TRAP CtESEG 

.•POINT TO NEXT DATA PAIR 
.•COMPARE TO END OF TEST DATA 
;BRANCH IF ALL DATA TESTED 
.•BRANCH TILL BACK TO ZERO 

;\\\\\\\\\\\\\ END SUBTEST \\\^\\\\\\\\\ 
L100$7: 

TRAP CSESU8 



G 11 



CZTUUAO TU80 FRONT END PRT A 
TEST 6: COMPLETION INTERRUPT 

5A25 
5426 
5*27 
5428 

5<.29 032116 
032116 

032116 104402 

5430 032120 

032120 012700 000000 

032124 104441 

5431 032126 012703 032362 

5432 032132 012704 032320 

5433 032136 004737 033416 

5434 032142 004737 016464 

5435 032146 103405 

5439 032150 010001 

5440 032152 
032152 104455 
032154 001141 
032156 003550 
032160 011506 

5441 032162 005037 

5442 032166 052737 

5443 032174 010465 

5444 032200 004737 

5445 032204 10340S 

5446 032206 010001 

5450 032210 
032210 104455 
032212 001142 
032214 033037 
032216 011520 

5451 032220 
032220 104406 

5452 032222 
032222 104410 
032224 000056 

5453 032226 005737 002172 

5454 032232 001004 
545« 032234 

032234 104456 

032236 001143 

032240 033126 

032242 011520 

5459 032244 016501 000000 

5460 032250 012702 102206 

5461 032254 032701 000100 

5462 032260 001402 

5463 032262 052702 000100 

5464 032266 020201 

5465 032270 001404 
5469 032272 

032272 104456 

032274 001144 

012?76 0S?64S 
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TEST 6, SUBTEST 3 



SEO 136 



SUBTEST TO VERIFY THAT A WRITE CHARACTERISTICS COMNANO IS 
REJECTED IF AN iLLtGAL DATA BLOCK ADDRESS IS ISSUED. 



St: 



002172 

000001 032330 
177776 
016740 



10$: 



15S: 



22S: 



25$: 



B6NSUB 



SETPRI fPRlOO 



nOV fT62DATA,R3 

NOV fT6PACKET.R4 

JSR PC,T6REST 

JSR PCSOFINIT 

BCS 10$ 

NOV R0«R1 

ERRDF EiiRNO,SFIERR«SFINSG 



;//////////// BEGIN SUBTEST //////////// 
T6.3: 

TRAP CS6SUB 
;LOUER PRIORITY TO ALLOW INTERRUPTS 

NOV fPRlOO.RO 
TRAP CSSPRI 
.•START OF TEST DATA FOR SUBTEST 
;GET THE ADDRESS OF CONNAND PACKET 
.•RESTORE PACKET TO STARTING VALUES 
;D0 SOFT INIT OF CONTROLLER 
:BR IF SOFT INIT * OK 
.-SAVE CONTENTS OF TSSR 
.•DEVICE FATAL ERROR DURING INIT 

TRAP CSERDF 
.WORD 609 
.WORD SFIERR 
.WORD SFINSG 



CLR 


INTRECV 


.•CLEAR INTERRUPT RECEIVED FLAG 


BIS 


f1.T60ATA 


:NAKE ADDRESS ODD 


NOV 


R4.TS0S(R5) 


;SET THE PACKET ADDRESS 


JSR 


PC.WAITF 


:WaIT FOR SSR TO SET 


BCS 


15$ 


:BR IF CARRY SET (GOOD RETURN) 


NOV 


R0.R1 


:SAVE CONTENTS OF TSSR 


ERRDF 


ERRN0.T6SSR,PKTSSR 


;DEVICE FATAL SSR FAILED TO SET 



CKLOOP 
ESCAPE SUB 



TST INTRECV 
BNE 22$ 

ERRHRD ERRN0,T6NINT,PKTSSR 



NOV TSSR(R5).R1 

NOV fSC!SSR!TSREJ!NBA.R2 

BIT fOFL.RI 

BEQ 25$ 

BIS fOFL.R2 

CNP R2.R1 

BEQ 30$ 

ERRHRD EiiRN0.T64REJ.PKT$SR 



TRAP 
.WORD 
.WORD 
.WORD 

.•LOOP ON ERROR. IF FLAG SET 

TRAP 

;BY-PASS SUBTEST IF FATAL ERROR 

TRAP 



:DIO AN INTERRUPT OCCUR 
.•BRANCH IF YES 



.WORD 

7 



C$ERDF 
610 
T6SSR 
PKTSSR 

C$CLP1 

C$£SCAPE 
L10060-. 



TRAP 
.WORD 
.WORD 
.WORD 

:GET THE CONTENTS OF TSSR 
: EXPECTED CONTENTS OF TSSR 
:IS OFF-LINE BIT SET ? 
;BRANCH IF NOT OFF-LINE 
.SET OFF-LINE IN EXPECTED DATA 
.•DOES EXPECTED HATCH RECEIVED ? 
.-OKAY IF HATCH 
:COHNAND NOT REJECTED 

TRAP 
.WORD 



CSERHRD 
611 

T6NINT 
PKTSSR 



C$ERHRD 
612 



CZTUWAO TUaO FRONT END PKT A 
TEST 6: CCMPLETIQN INTERRUPT 



H 11 
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SEO 157 



032300 

5470 032302 

5471 032302 
032302 
032302 

5472 032304 
032304 
032306 

5473 
5474 
5475 

5477 032310 

5479 032320 

5480 032320 

5481 032322 

5482 032324 

5483 032326 

5484 032330 

5485 032330 

5486 032332 

5487 032334 

5488 932336 

5489 032342 
3490 

5491 
5492 
5493 
5494 
5<95 

5496 032362 

5497 032362 
5496 032366 
5499 032372 
5500 

5501 
5502 
5503 

5504 032376 

5505 032451 

5506 032550 

5507 032643 

5508 032741 

5509 033037 

5510 033126 

5511 033217 

5512 033306 

5513 033371 
5514 



011520 



104403 

104432 
001162 



100204 
032330 
000000 
000010 

032342 
000000 
000016 

000000 000000 



000000 036140 

000002 000001 

000004 100100 
032376 



30$: 



EN0SU8 



EXIT TST 



LOCAL STORAGE FOR TNIS TEST 



.BLKB 
T6PACKET: 

.UORO 
.WORD 
.WORD 
.WORD 



T6DATA: 



.yORD 
.UORD 
.WORD 
.UORD 
.BLKU 



10-<.-TUV2Al7> 

100204 
T6DATA 
0 
8. 

T6BFR 
0 

14. 
0.0 
8. 



.WORD PKTSSR 

;\\\\\\\\\\\\\ END SUBTEST \\\SS\\\\\\\\ 
L10060: 

TRAP CSESUB 

.•ALL DONE THIS TEST 

TRAP CSEXIT 

.WORD L10055-. 



.•COMMAND PACKET FOR TEST 

;WRITE CHAR COMMAND, WITH IE. ACK 

;ADDRESS OF CHARACTERISTICS BLOCK 

.•STARTING VALUE OF BlOCK SIZE 
;CHARACTERISTICS DATA BLOCK 
.•ADDRESS OF MESSAGE BUFFER 

; LENGTH OF MESSAGE BUFFER 

.MESSAGE BUFFER 



127 


122 


111 


T6NBA: 


.ASCIZ 


127 


122 


111 


T62flEJ: 


.ASCIZ 


127 


122 


111 


T63RCJ: 


.ASCIZ 


127 


122 


111 


T64REJ: 


.ASCIZ 


127 


122 


111 


T65REJ: 


.ASCIZ 


103 


157 


156 


T6SSR: 


.ASCIZ 


105 


170 


160 


T6NINT: 


.ASCIZ 


125 


156 


145 


T6INT: 


.ASCIZ 


111 


156 


143 


T6TSBA: 


.ASCIZ 


103 


157 


155 


TST6ID: 


.ASCIZ 
.EVEN 



T6BFR: 
;♦ 

.•TEST DATA FOR SUBTEST TWO 
.•DATA HAS FORMAT: 

: 1ST WORD OFFSET TO TEST WORD IN PACKET 

2ND WORD BITS TO SET FOR TEST 

f62DATA: 

.WORD 0.BIT5!B1T6!BIT6!BIT10!BIT11 !BIT12!BIT13 
.WORD 2.BIT0 
.WORD 4.BIT6!BIT15 
T62D0NE«. 

koCAL TEXT MESSAGES FOR TEST 

'WRITE CHARACTERISTICS COMMnd Not Acctpttd* 
*WRITE CHARACTERISTICS Not Roitcttd With Non-Ztro Unustd Fitlds* 
'WRITE CHARACTERISTICS Not RtUcttd With Invalid Data Count* 
'WRITE CHARACTERISTICS Not Rtltctad With Invalid Block Addrtss* 
*WRITE CHARACTERISTICS Not Rtltctad With Invalid Buffar Ltngth* 
•Conttnts of TSSR Incorrtct Afttr WRITE CHARACTERISTICS* 
*Exp«cttd Inttrrupt Not Rtcalvad On WRITE CHARACTERISTICS* 
*Untxptctad Intarrupt Racalvad On WRITE CHARACTERISTICS* 
* Incorrtct TSBA Addraat Afttr WRITE CHARACTERISTICS* 
*Coiipltt1on Inttrrupt* 
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CZTUVAO TU80 FRONT END PRT A 
TEST 6: COMPLETION INTERRUPT 



5516 
5517 
'^518 
5519 
5520 
5521 

5522 035416 

5523 033416 

5524 033422 

5525 033426 

5526 033432 

5527 033436 

5528 033440 

5529 033444 

5530 033450 

5531 033452 

5532 033456 

5533 033460 

5534 033462 

5535 033466 

5536 033470 
033470 
033470 



012701 
012721 
012721 
005021 
012721 
012721 
005021 
012721 
005021 
005011 
005037 
000207 



104401 
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ROUTINE TO RESTORE CONNAND PACKET TO START-UP (DErAULl) VALUES 



SEQ 138 



032320 
100204 
032330 

000010 
032342 

000016 



032342 



T6REST: 



SAVREG 

NOV 

NOV 

NOV 

CLR 

NOV 

nov 

CLR 
NOV 
CLR 
CLR 
CLR 
RTS 
ENDTST 



ffT6PACKET,R1 

f 1 00204, (R1)« 

fT6DATA.(R1}4 

(RD* 

f8.,(R1)^ 

fT6BFR,(Rl)« 

(R1)« 

»14.,(R1)« 

(R1)« 

(R1) 

T6BFR 

PC 



:SAVE THE REGISTERS 

.'START OF THE PACKET 

:WRITE CHARACTERISTICS WITH ACK. IE 

: ADDRESS OF CHAR DATA BLOCK 

.EXTENDED ADDRESS 

;SIZE OF DATA BLOCK IN BYTES 

.•ADDRESS OF NESSA6E BUFFER 

;LEN6TN OF MESSAGE BUFFER 



: CLEAR 1ST LOC IN NESSAGE BUFFER 
.•RETURN 



LI 0055: 



TRAP CSETST 
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CZTIJUAO TU80 FRONT END PRT A 
TEST 7: BASIC PACKET PROTOCOL 



SS3S 
5539 
5540 
SS41 
5542 
5545 
5544 
5545 
5546 
5547 
5548 
5549 
5550 
5551 
5552 

5553 033472 
033472 

5554 033472 

5555 033476 

5556 033504 

5561 035510 

5562 033514 

5563 033S20 

5564 033526 
5565 

5566 033526 
033526 
033526 

5567 

5568 033530 

5569 033534 
033534 
033540 

5570 033542 

5571 033546 

5572 033554 

5573 033SS4 
033SS4 

5574 

5575 033556 

5576 033562 

5580 033564 

5581 033566 
033566 
033570 
033572 
033574 

5582 033576 

5583 033602 

5584 033606 

5585 033612 

5586 033616 

5587 033620 
5591 033622 

033622 
033624 
033626 
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SEQ 139 



.SBTTL TEST 7: BASIC PACKET PROTOCOL 

THIS TEST VERIFIES BASIC OPERATION Of THE NESSA6E BUFFER RELEASE 
COrWAND. THE FUNCTION OF THE ACK BIT IN THE CONNAND HEADER WORD. 
AND THE REbiSTER MODIFICATION REFUSED (RNR) LOGIC. 



TEST 7. SUBTEST 1 

CHECKS THAT THE MESSAGE BUFFER RELEASE COHHAND WORKS 
PROPERLY AND THAT NO INTERRUPT IS GENERATED EVEN 
IF THE "IE" BIT IS SET IN THE COMMAND PACKET 



005037 002170 

012737 005672 002146 

005037 003100 

01^700 036527 

004737 017226 

012737 000002 002164 



104402 

004737 036556 

012700 000000 
104441 

012704 035630 

012764 000010 000006 

104404 

004737 016464 

103405 

010001 

104455 
001275 
003550 
011506 

005037 002170 
005037 002172 
010465 177776 
004737 017054 
103407 
010001 

104455 
001276 
036260 



T7L00P: 



BGNTST 

CLR 
MOV 
CLR 
MOV 
JSR 
MOV 



SS: 



10$: 



BGNSUB 



JSR 

SETPRI 



MOV 
MOV 

BGNSEG 



JSR 
BCS 
MOV 
ERRDF 



CLR 
CLR 
MOV 
JSR 
BCS 
MOV 
ERRDF 



FATFLG 

«EPRT1,EPRTSV 

KTFLG 

fTST7lD,R0 

PC.TSTSETUP 

f2..L00PCNT 



PC.T7RST 
fPRlOO 



fT7PACKET,R4 
f8..PKBCNT(R4> 



T7: : 

; CLEAR FATAL ERROR* FLAG 
: SET UP ERROR MESSAGE SWITCH 
:HOLD OFF KT11 

.ASCII MESSAGE TO IDENTIFY TEST 
:D0 INITIAL TEST SETUP 
.•PERFORM 2 ITERATIONS 



\l HI II III III BEGIN SUBTEST II III II II III 
T7.1: 

TRAP CS6SU6 

;SET PACKET TO INITIAL VALUES 
.-LOWER PRIORITY TO ALLOW INTERRUPTS 

MOV ffPRlOO.RO 
TRAP CtSPRI 
;GET THE ADDRESS OF COMMAND PACKET 
.'START WITH MINIMUM ALLOWABLE VALUE 

:»»»»»» BEGIN SEGMENT »»»»»» 

TRAP CtBSEG 



PC.SOFINIT 

10$ 

R0.R1 

ERRNO.SFIERR.SFIMSG 



FATFLG 
INTRECV 
R4.TSDB(RS> 
PC.CHKTSSR 

isi 

R0.R1 

ERRN0«T7SSR.PKTSSR 



:D0 SOFT INIT OF CONTROLLER 

;BR IF SOFT INIT » OK 

:SAVE CONTENTS OF TSSR 

.•DEVICE FATAL ERROR DURING INIT 

TRAP 
.WORD 
.WORD 
.WORD 

.•CLEAR FATAL ERROR FLAG ' 

.CLEAR INTERRUPT RECEIVED FLAG 

.•SET THE PACKET ADDRESS 

.•WAIT FOR SSR TO SET 

:BR IF CARRY SET (GOOD RETURN) 

;SAVE CONTENTS OF TSSR 

.•DEVICE FATAL SSR FAILED TO SET 

TRAP 
.WORD 



CSERDF 
701 

SFIERR 
SFIMSG 



CSERDF 
702 
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TEST 7: BASIC PACKET PROTOCOL 



PC.FATCHK 



033630 


A4 4 C^A 

011920 






97t2 033632 


AAA 717 

004737 


A4 77flA 

017720 


JSR 


3793 033636 




4 Ctf 


CKLOOP 


033636 


4 A J / AX 

104406 




CCA' J A 

033640 






ESCAPE 


awa# a 

033640 


4 A/ / 4 A 

104410 




033642 


AAAACX 

000096 






)393 033644 


0057^7 


AA14 

002172 


TST 


33t6 033690 


AA1 AA#. 

001004 




BNc 


7600 0936j2 






CRRHRD 


033672 


104%76 




03367« 


AA1 977 

00127 f 






03J676 


0363^ r 






AVVAXA 
Q33060 


A1 1 C3A 

01 1 920 






7601 03366c 


016901 


AAAAAA • 

000000 22*: 


MAU 

wov 


7602 033666 


A1 97A9 

012702 


AAA9AA 

000200 


MAU 

nov 


7603 0336 r 2 


AV97A1 

032 r 01 


AAA1AA 

000100 


all 


76U(i 03Mr6 


AA1 AA9 

001 «02 




Dcn 
DCB 


76U7 U33rUU 


AC97A9 
092 r 02 


AAA1AA 

000100 


DtC 

BIS 


76U6 U33rU4 


A9A9A1 
U20201 


29*: 


CBr 


CAA7 AW7AiL 

760 r U33rl/6 


AA11.A£ 
001*0* 




SKA 


CiLII AVX71A 
7611 03Jr1U 






KDDUDA 

CnRnRD 




IU**l90 






U77r K 


AA1 XAA 
001900 






U37' 1*1 


090cOU 






U97r lO 


A1K9A 
01 1920 






C^13 ATT79A 
761c U33rcU 




XAC« 
309 • 




9019 U99rcw 






euAcce 


U99r CU 








U99r cU 


IU*I*V9 






AXX799 






BIM«CV 




IW**W* 






90I9 








7niO V99rc4 


AACAX7 


AA9179 
UUcI rc 


vLIf 


961 r U^9r9V 


A1 97X7 

0i2f 9r 


A9C9C9 AXCA<9 
029292 099692 


MAU 

nov 


90I0 U39r90 


A1971A 
O icr 14 


1AA919 
lUVcIc 


MAU 

WOw 


901t U99r^2 


010*69 


1 7777A 
I r f f rO 


ilOV 


90CV U99r40 


AAA 7X7 


A17A<A 
01 rU9* 


iCD 


<A91 AX17<9 
90Cl U99r9c 


1AX^A7 




arc 


<A99 AW7(X 
96cc U99r9% 


A1AAA1 
010001 




MAW 

now 


90cO U99r90 








U99r90 


IU**99 






AVV7AA 
099 rOU 


AA1 XA1 
001901 






099r6< 


030260 






099rM 


011920 






90cr 099fOO 


AAA 7X7 


A1779A 
01 r r20 


ICD 


<A9> AXV779 
90cB U99f r C 




*l9*i 


m AAB 


099f f C 


10**06 






ex TO AVX77A 

90cV V^mill^ 


AAC7X7 


AA9179 
OOcl r2 


TCT 


S630 034000 


001404 

WW 1^^^ 




BEQ 


5634 054002 






ERRHRO 


034002 


1044$6 






034004 


001302 






034006 


036440 






034010 


011520 






S63S 034012 


016501 


000000 52$: 


NOV 


5636 034016 


012702 


C00200 


mv 



SE6 



INTRECV 
22$ 

ERRN0.T7N1NT.PKTSSR 



TSSR(R5),R1 
ffSSR.R2 
fOFL.RI 
25$ 

fOFL.R2 

R2.R1 

30$ 

ERRN0.T7SSR.PKTSSR 



INTRECV 

f025252,T7BFR 

#100212. (R4) 

R4.TS0B(RS) 

PC.CHKTSSR 

45$ 

R0.R1 

ERRN0,T7SSR.PKTSSR 



PC.FATCNK 



INTRECV 
52$ 



TSSR(RS),R1 



.UORD PKTSSR 
;1NC AND CHECK FOR NORE THAN 25 ERRORS 
:LOOP ON ERROR. IF FLAG SET 

TRAP C$CLP1 
;BV-PASS SUBTEST IF FATAL ERROR 

TRAP CSESCAPE 

.WORD 10000$-. 
;DID AN INTERRUPT OCCUR ? 
; BRANCH IF YES 

TRAP CSERHRD 
.WORD 70S 
.WORD T7NINT 
.WORD PKTSSR 

:GET THE CONTENTS OF TSSR 

; EXPECTED CONTENTS OF TSSR 

:IS OFF-LINE BIT SET ? 

.BRANCH IF NOT OFF-LINE 

:SET OFF-LINE IN EXPECTED DATA 

.DOES EXPECTED MATCH RECEIVED ? 

;OKAV IF HATCH 

;NBA NOT ZERO 

TRAP CSERHRD 
.WORD 704 
.WORD T7SSR 
.WORD PKTSSR 

;««««««< END SEGMENT ««««««< 
10000$: 

TRAP C$ESE6 
;»»»»»» BEGIN SEGMENT »»»»»» 

TRAP CSBSEG 

.•CLEAR INTERRUPT RECEIVED FLAG 

.-WIPE OUT MESSAGE BUFFER AREA 

:SET COMMAND PACKET TO MESS BUF REL 

:SET TNE PACKET ADDRESS 

.•UAIT FOR SSR TO SET 

;BR IF CARRY SET (GOOD RETURN) 

:SAVE CONTENTS OF TSSR 

.•DEVICE FATAL SSR FAILED TO SET 

TRAP CSERDF 
.WORD 705 
.WORD T7SSR 
.WORD PKTSSR 

;INC AND CHECK FOR MORE THAN 25 ERRORS 

;L00P ON ERROR. IF FLAG SET 

TRAP C$CLP1 

;DID AN INTERRUPT OCCUR ? 

;BRANCH IF NO 

TRAP C$ERHRD 
.WORD 706 
.WORD T7INT 
.WORD PKTSSR 

;GET THE CONTENTS OF TSSR 

.PKPgCTgP COMTfNTS OF TSSR 



CZTUUAO TU80 FRONT END PRT A 
TEST 7: BASIC PACKET PROTOCOL 
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5637 034022 

5638 034026 
5f 39 034030 

5640 034034 

5641 034036 

5645 034040 
034040 
034042 
034044 
034046 

5646 034050 

5647 034050 

5648 034054 

5649 034060 

5650 034062 

5654 034064 
034064 
034066 
034070 
034072 

5655 034074 

5656 034074 

5657 034100 

5658 034102 

5659 034106 
034106 
034106 

5660 034110 

5661 034110 
034110 
034110 

5662 



032701 
001402 
052702 
020201 
001404 

104456 
001303 
036260 
011520 

013701 
012702 
020102 
001404 

104456 
001304 
035734 
016164 

005737 
001403 
004737 



104405 



104403 



000100 
000100 



55t: 



035652 
025252 



60ft: 



002170 
017772 



70$: 



80ft: 



BIT 
BEQ 
BIS 
CUP 
BEQ 



f0FL,R1 
55ft 

f0FL.R2 
R?.R1 
60ft 



ERRHRD ERRM0.T7SSR.PKTSSR 



NOV 
NOV 
CNP 
BEQ 



TST 
BEQ 
JSR 

ENDSES 



ENOSUB 



T7BFR,R1 
ff025252.R2 
R1.R2 
70ft 



ERRNRD ERRN0,T7NBF,EXPREC 



FATFL6 
80ft 

PCCKDROP 



;IS OFF-LINE BIT SET ? 
.•BRANCH IF NOT OFF-LINE 
:SET OFF-LINE IN EXPECTED DATA 
.-DOES EXPECTED NATCH RECEIVED ? 
:OKAV IF NATCH 

:"TSSR INCORRECT AFTER WRT CHARA." 

TRAP CftERHRD 
.WORD 707 
.WORD T7$SR 
.WORD PKTSSR 

;PICK UP THE 1ST WORD OF NESSA6E BUFFER 

;SET UP EXPECTED DATA 

:WAS ANY MESSAGE REC'D 

;BR, IF OK (EQUAL) 

:NESSA6E BUFFER WAS NODIFIED 

TRAP CftERHRD 
.WORD 708 
.WORD T7HBF 
.WORD EXPREC 

.-ANY FATAL ERRORS 
;BR, IF NO FATAL ERRORS 
.TRY TO DROP THE UNIT 
;«««««<« END SE6NENT <«««««« 
10001ft: 

TRAP CftESEG 

;//////////// END SUBTEST //////////// 
L10062: 

TRAP CftESUB 
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S664 
5665 
5666 
5667 
5666 
5669 
5670 
5671 
5672 

5673 034112 
034112 

034112 104402 

5674 

5675 034114 004737 

5676 034120 
034120 012700 
034124 104441 

5677 034126 012704 

5678 034132 012764 

5679 034140 

5680 034140 
034140 104404 

5681 

5682 034142 004737 

5683 034146 103405 

5687 034150 010001 

5688 034152 
034152 104455 
034154 001305 
034156 003550 
034160 011506 

5689 034162 005037 

5690 034166 005037 

5691 034172 012737 

5692 034200 010465 

5693 034204 004737 

5694 034210 103407 

5695 034212 010001 

5699 034214 
034214 104455 
034216 001306 
034220 036260 
034222 011520 

5700 034224 004737 017720 

5701 034230 
034230 104406 

5702 034232 
034232 104410 
034234 000056 

5703 034236 005737 002172 

5704 034242 001004 

5708 034244 
034244 104456 
034246 001307 
034250 036347 
034252 011520 

5709 0S42S4 016501 000000 
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TEST 7. SUBTEST 2 



SEO 142 



CHECKS THAT THE ••ESSAGE BUFFER RELEASE COMMAND WORKS 
PROPERLY AND THAT iriERE IS AN INTERRUPT IF THE "IE" 
BIT IS SET IN THE CORNAND PACKET AND THE 'tRI" BIT 
IS SET IN THE CHARACTERISTICS DATA PACKET 



036556 
000000 
035630 

000010 000006 



016464 



SS: 



002170 
002172 

000020 035646 
177776 
017054 



10S: 



15S: 



BGNSUB 



JSR PC.T7RST 
SETPRI fPRIOO 



NOV 
NOV 

B6NSEG 



JSR 
BCS 
NOV 
ERRDf 



ffT7PACKET.R4 
«8..PKBCNT(R4) 



PC.SOFINIT 

10S 

R0.R1 

ERRNO.SFIERR,SFINSG 



;//////////// BEGIN SUBTEST //////////// 
T7.2: 

TRAP CS8SUB 

;SET PACKET TO INITIAL VALUES 

; LOVER PRIORITV TO ALLOW INTERRUPTS 

NOV «f'RI0O,R0 
TRAP CSSPRI 
:GET THE ADDRESS OF COMMAND PACKET 
; START WITH MINIMUM ALLOWABLE VALUE 

;»»»»»» BEGIN SEGMENT »»»»»» 

TRAP CtBSEG 

;D0 SOFT INIT OF CONTROLLER 

:BR IF SOFT INIT s OK 

.SAVE CONTENTS OF TSSR 

; DEVICE FATAL ERROR DURING INIT 

TRAP CSERDF 
.WORD 709 
.WORD SFIERR 
.WORD SF INSG 



CLR 


FATFL6 


; CLEAR FATAL ERROR FLAG 


CLR 


INTRECV 


.•CLEAR INTERRUPT RECEIVED FLAG 


MOV 


I000020«T70ATA«6 


;SET ERI IN CHARACTERISTICS DATA 


MOV 


R4.TSDB(R5) 


;SET THE PACKET ADDRESS 


JSR 


PCCHKTSSR 


;VAIT FOR SSR TO SET 


BCS 


15$ 


;BR IF CARRY SET (GOOD RETURN) 


NOV 


R0.R1 


.-SAVE CONTENTS OF TSSR 


ERRDf 


ERRN0.T7SSR.PKTSSR 


;0EVICE FATAL SSR FAILED TO SET 



JSR 

CKLOOP 



PC.FATCHK 



ESCAPE SEG 



TST INTRECV 
BNE 22S 

ERRHRD ERRNO.TTNINT.PKTSSR 



22S: 



NOV 



TSSR(R5),R1 



TRAP CSERDF 

.WORD 710 

.WORD T7SSR 

WORD PKTSSR 

:INC AND CHECK FOR MORE THAN 25 ERRORS 
;LOOP ON ERROR, IF FLAG SET 

TRAP CSCLP1 
;BY-PASS SUBTEST IF FATAL ERROR 

TRAP CSESCAPE 

.WORD 10000$-. 
;DI0 AN INTERRUPT OCCUR ? 
.BRANCH IF YES 

TRAP CSERHRD 

.WORD 711 

.WORD T7NINT 

.WORD PKTSSR 
■figT THg CONTENTS OF TSSR 
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ffSSR.R2 
fOFL.RI 
25$ 

#C>fL.R2 
R2«K1 
301 

ERRN0.T7SSR,PKTSSR 







nnnsnn 
uwcuu 


HAU 

nUV 


Jill \lj'*CQt 


nT9701 


AAAi AA 

uuu 1 uu 


BIT 




vw 1 IwC 




DCW 


<71X n^979 


VjCiMC 




SIS 




VC\IC\I 1 




mo 




A01&0& 






















W J** JWI 


W 1 J 1 V 
















nil con 

w 1 1 JCV 






S790 0S4312 




lot* 




S721 034312 








034312 








O^ll? 


10440% 






5722 034314 








034314 


104404 






5723 








5724 034316 


005037 


002172 


CLR 


5725 034322 


012737 


025252 035652 


nvw 


5726 034330 


012714 


100212 


MOV 


5727 034334 


010465 


177776 

i f f f f V 


rrv W 


5728 034340 


004737 


01 7054 

V 1 f V^~ 




5729 034344 


103407 




BCS 

0V V 


5730 034346 


010001 

V 1 WW I 




MOV 


5734 034350 






ERRDF 


034350 


104455 




034352 


001311 






034354 


036260 

V^Wfc w 






034356 


011520 

V i i ^»v 






5735 034360 


004737 


017720 

VI*' KV 


JSR 


5736 034364 




45S: 


CKLOOP 


034364 


104406 






5737 034366 


005737 


002172 

VVb ■ V 


TST 


5738 034372 


001004 

Vw • VV^ 




BNE 

vv«v» 


5742 034374 






ERRHRD 


034374 


104456 

■ V~~ ^ W 






034376 


001312 

WV < W 1 & 






034400 


036440 






034402 


011520 

VII ^&v 






5743 034404 


016501 

V 1 W^V I 


000000 52i: 

WWW V • 


MOV 

nvw 


5744 034410 


012702 

V 1 & « VK 


000200 

VWfcVv 


MOV 


5745 034414 


032701 

V^& V V 1 


000100 

WW ■ VV 


BIT 


5746 034420 


001402 

VV ■ ~ Vfc 




BEQ 


5747 034422 


052702 

V t Vfc 


000100 

vw < w 


BIS 


5748 034426 


020201 


55S: 


CNP 


5749 034430 


001404 

VV 1 ^ v^ 




BEQ 


5753 034432 






ERRHRD 


034432 


104456 






034434 


001313 






034436 


036260 






034440 


011520 






5754 034442 




60$: 




5755 034442 


013701 


035652 


NOV 


5756 034446 


012702 


025252 


mv 


5757 034452 


020102 




CNP 


5758 034454 


001404 




BEQ 



INTRECV 

ff025252J7BFR 

#10021 2, (R4> 

R4,TSDB(R5) 

PC.CNKTSSR 

45$ 

R0.R1 

ERRIiO.T7SSR,PKTSSR 



PC.FATCHK 



INTRECV 
52$ 

ERRN0,T7INT.PKTSSR 



TSSR(R5),R1 
«SSR,R2 
ffOFL.RI 
55$ 

»0FL,R2 

R2.R1 

60$ 

ERRN0,T7SSR.PKTSSR 



T7BFR.R1 
#025252 ,R2 
R1,R2 
70$ 



;EXPECTED CONTENTS OF TSSR 

;IS OFF-LINE BIT SET ? 

.•BRANCH IF NOT OFF-LINE 

:SET OFF-LINE IN EXPECTED DATA 

.-DOES EXPECTED NATCH RECEIVED ? 

:OKAY IF NATCH 

;NBA NOT ZERO 

TRAP C$ERHRO 
.WORD 712 
.WORD T7SSR 
.WORD PKTSSR 

;««««««< END SEGMENT ««««««< 
10000$: 

TRAP C$ESEG 
;»»»»»» BEGIN SE6NENT »»»»»» 

TRAP C$BSEG 

.•CLEAR INTERRUPT RECEIVED FLAG 

;WIPE OUT NESSAGE BUFFER AREA 

;SET CONNAND PACKET TO NESS BUF REL 

;SET THE PACKET ADDRESS 

.-WAIT FOR SSR TO SET 

;BR IF CARRY SET (GOOD RETURN) 

;SAVE CONTENTS OF TSSR 

; DEVICE FATAL SSR FAILED TO SET 

TRAP CSERDF 
.WORD 713 
.WORD T7SSR 
.WORD PKTSSR 

:INC AND CHECK FOR NORE THAN 25 ERRORS 

;LOOP ON ERROR. IF FLAG SET 

TRAP C$CLP1 

:DID AN INTERRUPT OCCUR ? 

.•BRANCH IF YES 

TRAP CSERHRD 
.WORD 714 
.WORD T7INT 
.WORD PKTSSR 

;6ET THE CONTENTS OF TSSR 

.•EXPECTED CONTENTS OF TSSR 

;IS OFF-LINE BIT SET ? 

; BRANCH IF NOT OFF-LINE 

:SET OFF-LINE IN EXPECTED DATA 

.•DOES EXPECTED NATCH RECEIVED ? 

.•OKAY IF NATCH 

:NBA NOT SET 

TRAP CSERHRD 
.WORD 715 
.WORD T7SSR 
.WORD PKTSSR 

PICK UP THE 1ST WORD OF NESSAGE BUFFER 
SET UP EXPECTED DATA 
WAS ANY NESSAGE REC'D 
BR. IF OK (EQUAL) 
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1044S6 




001^14 








01&1M 












00S7S7 


S7M 0S4472 


001402 

WW 1 ~Wfc 


^767 014474 


004737 

ww^> ^* 






S769 034S00 




0S4S00 




OMSOO 


10440S 


5770 034S02 




034S02 




0S4S02 


104403 
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ERRHRD ERRN0.T7MBF.EXPREC 



70S: 



SOS: 



TST FATFLG 

BEQ SOS 

JSR PC.CKDROP 

ENDSEG 



ENDSUB 



.-MESSAGE BUFFER WAS HOOIFIEO 

TRAP CSERHRD 

.WORD 716 

.WORD T7HBF 

.WORD EXPREC 



;ANV FATAL ERRORS 

:BR, IF NO FATAL ERRORS 

.-TRY TO DROP THE UNIT 

:««««««< END SEGMENT ««««««< ; 

10001S: ' 
TRAP CSESE6 
;//////////// END SUBTEST //////////// 

LI 0063: 

TRAP CIESUB 

I 
! 

1 



! 



C 12 



104402 

004737 036556 

012700 000000 
104441 

012704 035630 

012764 000010 000006 



016464 



CZTUUAO TU80 FRONT END PK^ A 
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5772 
5773 
5774 
5775 
5?76 
5777 
577» 
5779 

5780 034504 
034504 
034504 

5781 

5782 034506 

5783 034512 
034512 
034516 

5784 034520 

5785 034524 

5786 034532 

5787 034532 
034532 

5788 

5789 034534 

5790 034540 

5794 034542 

5795 034544 
034544 
034546 
034550 
034552 

5796 034554 

5797 034560 

5798 034564 

5799 034570 

5800 034574 

5801 034576 

5805 034600 
034600 
034602 
034604 
034606 

5806 034610 

5807 034614 
034614 

5808 034616 
034616 
034620 

5809 034622 

5810 034626 

5814 034630 
034630 
034632 
034634 
034636 

5815 034640 

5816 0346a 
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TEST 1, SUBTEST 3 



SEQ 145 



CHECKS THAT THE ''PU GIVES UP OWNERSHIP OF THE MESSAGE BUFFER 
AFTER THE MESSAGE UUFFER RELEASE, AND THAT FOLLOWING COMMANDS 
WORK CORRECTLY 



5ft: 



104404 

004737 
103405 
010001 

104455 
001315 
003550 
011506 
005037 
005037 
010465 
004737 
103407 
010001 

104455 
001316 
036260 
011520 
004737 

104406 

104410 
000056 
005737 
001004 

104456 
001317 
036347 
011520 
016501 
012702 
019701 



002170 
002172 
177776 
017054 



10ft: 



017720 



15ft: 



002172 



000000 
000200 
000100 



22ft: 



BGNSUB 



JSR PC,T7RST 
SETPRI fPRlOO 



MOV *T7PACKET,R4 
MOV ff8..PKBCNT(R4) 

BGNSE6 



JSR PC.SOFINIT 

BCS 10ft 

MOV R0.R1 

ERRDF ERRNO.SFIERR.SFIMSG 



CLR FATFL6 

CLR INTRECV 

MOV R4,TSDB(R5) 

JSR PCCMKTSSR 

BCS 15ft 

MOV R0.R1 

ERRDF ERRN0,T7SSR,PKTSSR 



JSR PC.FATCMK 
CKLOOP 

ESCAPE SEG 



TST INTRECV 
BNE 22ft 

ERRHRD ERRN0.T7NINT.PKTSSR 



MOV TSSR(R5),R1 
MOV fSSR.R2 
BIT fOFL.RI 



;//////////// BEGIN SUBTEST //////////// 
T7.3: 

TRAP CftBSUB 

:SET PACKET TO INITIAL VALUES 
.•LOWER PRIORITY TO ALLOW INTERRUPTS 

MOV fPRIOO.RO 
TRAP CftSPRI 
;GET THE ADDRESS OF COMMAND PACKET 
.•START WITH MINIMUM ALLOWABLE VALUE 

:»»»»»» BEGIN SEGMENT »»»»»» 

TRAP CftBSEG 

:D0 SOFT INIT OF CONTROLLER 

;BR IF SOFT INIT s OK 

.•SAVE CONTENTS OF TSSR 

:DEVICE FATAL ERROR DURING iNlT 

TRAP CftEROF 
.WORD 717 
.WORD SFIERR 
.WORD SFIMSG 

.•CLEAR FATAL ERROR FLAG 

.•CLEAR INTERRUPT RECEIVED FLAG 

;SET THE PACKET ADDRESS 

:WAIT FOR SSR TO SET 

:BR IF CARRY SET (GOOD RETURN) 

.•SAVE CONTENTS OF TSSR 

.DEVICE FATAL SSR FARED TO SET 

TRAP CftEROF 
.WORD 718 
.WORD T7SSR 
.WORD PKTSSR 

;INC AND CHECK TOR MORE THAN 25 ERRORS 

.•LOOP ON ERROR. IF FLAG SET 

TRAP CftCLPI 

.•BY-PASS SUBTEST IF FATAL ERROR 

TRAP CftESCAPE 
.WORD 10000ft-. 

.•DID AN INTERRUPT OCCUR ? 

.•BRANCH IF YES 



TRAP CftERHRD 
.WORD 719 
.WORD T7NINT 
.WORD PKTSSR 

GET THE CONTENTS OF TSSR 

EXPECTED CONTENTS OF TSSR 

IS OFF-LINF BIT SET ? 
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S818 0S46S4 


0OU02 




S819 0S46S6 


052702 


000100 


S820 034662 


020201 




S821 034664 


001404 




5825 034666 






034666 


104456 




034670 


001320 




034672 


036260 




034674 


011520 




5826 034676 






SB27 034676 






034676 






034676 


104405 




5828 034700 






034700 


104404 




5829 034702 


004737 


036SS6 


5830 034706 


005037 


002172 


5831 034712 


012737 


025252 035652 


5832 034720 


012714 


100212 


5833 034724 


010465 


177776 


5834 034730 


004737 


017054 


5835 034734 


103407 




5836 034736 


010001 




5840 034740 






034740 


104455 




034742 


001321 




034744 


036170 




034746 


011520 




5841 034750 


004737 


017720 


5842 034754 






034754 


104406 




5S43 034756 


005737 


002172 


5844 034762 


001404 


5848 034764 






034764 


104456 




034766 


001322 




034770 


036440 




034772 


011520 




5849 034774 


016501 


000000 


5850 035000 


012702 


000200 


5851 035004 


032701 


000100 


5852 03S010 


001402 




5853 035012 


052702 


000100 


5854 035016 


020201 




5855 035020 


001404 




5859 035022 






035022 


104456 




035024 


001323 




035026 


036260 




035030 


011520 




5860 035032 






5861 035032 


013701 


035652 


5862 035036 


012702 


025252 


5863 035042 


020102 


5864 035044 


001404 




5868 035046 













2SS: 



30S: 



4SS: 



52i: 



55S: 



60S: 



BEQ 
BIS 
CW» 
BEQ 
ERRHRO 



ENDSE6 



B6NSE6 

JSR 
CLR 
NOV 
NOV 
NOV 
JSR 
BCS 
NOV 
ERROF 



JSR 

CKLOOP 

TST 
BEQ 
ERRHRP 



NOV 
NOV 
BIT 
BEQ 
BIS 
CNP 
BEQ 
ERRHRO 



NOV 
NOV 
CNP 
BEQ 
ERRHRO 



2SS 

fOFL,R2 
R2,R1 

ERRN0,T7SSR.PKTSSR 



PC.T7RST 

INTRECV 

#025252 J7BFR 

#100212. (R4) 

R4.TS0B(R5) 

PC.CHKTSSR 

45S 

R0.R1 

ERRN0.T7SSRN«PKTSSR 



PC.FATCHK 



INTRECV 
52$ 

ERRN0.T7INT.PKTSSR 



TSSR(RS),R1 
#SSR.R2 
#0FL.R1 
55$ 

#0FL.R2 

R2.R1 

60$ 

ERRN0.T7SSR.PKTSSR 



T7BFR.R1 
#025252. R2 
R1.R2 
70i 

ERRN0.T7NBF.EXPREC 



SEQ U6 



.'BRANCH IF NOT OFF-LINE 

;SET OFF-LINE IN EXPECTED DATA 

.DOES EXPECTED NATCH RECEIVED ? 

:OKAY IF NATCH 

;NBA NOT ZERO 

TRAP CtERHRD 
.WORD 720 
.UORD T7SSR 
.WORD PKTSSR 

;<«««««« END SEGMENT «««««<« 
10000$: 

TRAP C$ESEG 

;»»»»»» BEGIN SEGNENT »»»»»» 

TRAP CSBSEG 

.-RESET PACKETS AND CONNANDS 

.'CLEAR INTERRUPT RECEIVED FLAG 

.-WIPE OUT HESSAGE BUFFER AREA 

;SET COMNANO PACKET TO HESS BUF REL 

:SET THE PACKET ADDRESS 

.WAIT FOR SSR TO SET 

:BR IF CARRY SET (GOOD RETURN) 

.SAVE CONTENTS OF TSSR 

.•DEVICE FATAL SSR FAILED TO SET 

TRAP CtEROF 
.WORD 721 
.WORD T7SSRM 
.WORD PKTSSR 

;INC AND CHECK FOR NORE THAN 25 ERRORS 

.•LOOP ON ERROR. IF FLAf SET 

TRAP C$CLP1 

;DID AN INTERRUPT OCCUR ? 

:BRANCH IF NO 

TRAP C$ERHRD 
.WORD 722 
.WORD T71NT 
.WORD PKTSSR 

.•GET THE CONTENTS OF TSSR 

; EXPECTED CONTENTS OF TSSR 

;IS OFF-LINE BIT SET ? 

.BRANCH IF NOT OFF-LINE 

;SET OFF-LINE IN EXPECTED DATA 

.•DOES EXPECTED NATCH RECEIVED ? 

;OKAY IF NATCH 

:NBA NOT SET 

TRAP CSERHRD 
.WORD 723 
.WORD T7SSR 
.WORD PKTSSR 

.•PICK UP THE 1ST WORD OF NESSAGE BUFFER 
.SET UP EXPECTED DATA 
:WAS ANY NESSAGE REC'D 
:BR. IF OK (EQUAL) 
.NESSAGE BUFFER WAS NOOIFIED 
TRAP CSERMRO 
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OSSOSO 


001324 




0SS0S2 


035734 




0SS054 


016164 




5869 






5870 0SS0S6 






0SS056 


104406 




5871 






5872 035060 


005037 


002172 


5873 035064 


004737 


036556 


5874 035070 


042714 


100000 


5875 035074 


010465 


177776 


5876 035100 


004737 


017054 


5877 035104 


103407 




5878 035106 


010001 




5882 035110 






035110 


104455 




035112 


001325 




035114 


036260 




035116 


011520 




5883 035120 


004737 


017720 


5884 035124 






035124 


104406 




5885 035126 






035126 


104410 




035130 


000062 




5886 035132 


005737 


002172 


5887 035136 


001006 




5891 035140 


016500 


000000 


5892 035144 






035144 


104456 




035146 


001326 




035150 


036347 




035152 


011520 




5893 035154 


016501 


000000 


5894 035160 


012702 


000200 


5895 035164 


032701 


000100 


5896 035170 


001402 




5897 035172 


052702 


000100 


5898 035176 


020201 




5899 035200 


001404 




5903 035202 






035202 


104456 




035204 


001327 




035206 


036260 




035210 


011520 




5904 035212 






5905 035212 






035212 






035212 


104405 




5906 035214 


005737 


002170 


5907 035220 


001403 




5908 035222 


004737 


017772 


5909 






5910 035226 






035226 


104404 




5911 035230 


005037 


002172 


C019 At(7tX 




A«A«M 



70S: CKLOOP 



CLR 
JSR 
BIC 
NOV 
JSR 
BCS 
NOV 
ERRDF 



7SS: 



828: 



85$: 



90S: 



JSR 

CKLOOP 
ESCAPE 



TST 



NOV 
ERRHRO 



NOV 
NOV 
BIT 
BEO 
BIS 
CNP 
BEO 
ERRHRO 



9SS: 



EN0SE6 



TST 
BEO 
JSR 

B6NSEG 

CLR 
JSR 



INTRECV 

PC.T7RST 

#100000, (R4) 

R4.TS0B(R5) 

PC.CHKTSSR 

75$ 

R0,R1 

ERRN0.T7SSR,PICTSSR 



PC.FATCHK 
SE6 



INTRECV 
82$ 

TS$R(R5),R0 
ERRNO.TTNINT.PKTSSR 



TSSR(R5},R1 
«S$R,R2 
fOFL,R1 
85$ 

fOFL,R2 

R2.R1 

90$ 

ERRN0,T7SSR,PKTSSR 



FATFLG 
95$ 

PCCKOROP 



INTRECV 
PC.T7RST 



.WORD 72t, 
.WORD T7HBF 
.yORD EXPREC 

;LOOP ON ERROR IF FLAG SET 

TRAP CSCLP1 

.-CLEAR INTERRUPT RECEIVED FLAG 

.RESET THE PACKETS AND CONNANOS 

; CLEAR THE ACK SIT 

:SET THE PACKET ADDRESS 

;UAIT FOR SSR TO SET 

;8R IF CARRY SET (GOOD RETURN) 

;SAVE CONTENTS OF TSSR 

:DEVICE FATAL SSR FAILED TO SET 

TRAP CSERDF 
.UORO 725 
.UORO T7SSR 
.WORD PKTSSR 

;INC AND CHECK FOR NONE THAN 25 ERRORS 

.'LOOP ON ERROR, IF FLAG SET 

TRAP CSCLPI 

;8V-PASS SUBTEST IF FATAL ERROR 

TRAP CSESCAPE 
.UORD 10001$-. 

:DID AN INTERRUPT OCCUR ? 

;BI<ANCH IF YES 

:6ET TSSR FOR ERROR REPORT 

TRAP CSERHRD 
.WORD 726 
.UORD T7NINT 
.UORD PKTSSR 

:6ET THE CONTENTS OF TSSR 

.'EXPECTED CONTENTS OF TSSR 

;IS OFF-LINE BIT SET ? 

:BRANCH IF NOT OFF-LINE 

:SET OFF-LINE IN EXPECTED DATA 

.•DOES EXPECTED NATCH RECEIVED ? 

;OKAy IF HATCH 

:NBA NOT ZERO 

TRAP CSERHRD 
.UORO 727 
.UORD T7SSR 
.UORD PKTSSR 

:««««««< END SEGNENT ««««««< 
10001$: 

TRAP C$ESEG 

;ANY FATAL ERRORS 

;BR. IF NO FATAL ERRORS 

.•TRY TO DROP THE UNIT 

;««««««< BGN SEGNENT «««<««« 

TRAP CSBSEG 
.CLEAR INTERRUPT RECEIVED FLAG 
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5913 03S240 

5914 03S244 

5915 035250 

5916 035252 

5920 035254 
035254 
035256 
035260 
035262 

5921 035264 

5922 035270 
035270 

5923 0S5272 
035272 
0SS274 

5924 035276 

5925 035302 

5929 035304 

5930 035310 
035310 
03SS12 
OSSSU 
035316 

5931 035320 

5932 035324 

5933 0SSS30 

5934 035334 

5935 035336 

5936 035342 

5937 035344 

5941 035346 
035346 
035350 
035352 
035354 

5942 035356 
035356 
035356 

5943 035360 

5944 035364 

5945 035366 

5946 035372 

5947 035372 
035372 
035372 

5948 0SS374 



010465 
004737 
103407 
010001 

104455 
001330 
036260 
011520 
004737 

104406 

104410 
000062 
005737 
001006 
016500 

104456 
001331 
036347 
011520 
016501 
012702 
032701 
001402 
052702 
020201 
001405 

104456 
001332 
036260 
011520 



104405 
005737 
001402 
004737 



104403 



177776 
017054 



017720 



100S: 



002172 
000000 



NOV 
JSR 
BCS 
NOV 
ERRDF 



JSR 

CKLOOP 
ESCAPE 



TST 
BNE 
NOV 
ERftHRD 



R4.TSDB(R5) 
PC.CHKTSSR 

loot 

^1 

ERRN0.T7SSR.PKTSSR 



PC.FATCHK 
SE6 



INTRECV 
112S 

TSSR(R5),R0 
ERRN0.T7NINT.PKTSSR 



000000 


112S: 


NOV 


TSSR(RS).R1 


000200 




NOV 


fSSR.R2 


000100 




BIT 


fOFL.RI 






BEQ 


125f 


000100 




BIS 


«0FL,R2 




12SS: 


CNP 


R2,R1 






BEQ 


130S 






ERRHRO 


ERRN0,T7SSR.PKTSSR 






ENDSEG 




002170 


130S: 


TST 


FATFL6 






BEQ 


140S 


017772 




JSR 


PC^CKDROP 




1401: 








ENDSU6 





301: 



;SET THE PACKET ADDRESS 

:WAIT FOR SSR TO SET 

;BR IF CARRY SET (6000 RETURN) 

;SAVE CONTENTS OF TSSR 

.'DEVICE FATAL SSR FAILED TO SET 

TRAP CSEROF 
.WORD 728 
.UORO T7SSR 
.WORD PKTSSR 

;INC AND CHECK FOR NORE THAN 25 ERRORS 

;LOOP ON ERROR. IF FLAG SET 

TRAP CSCLP1 

:BV-PASS SUBTEST IF FATAL ERROR 

TRAP CtE SCAPE 
.WORD 10002t-. 

;DID AN INTERRUPT OCCUR ? 

.•BRANCH IF YES 

:GET rSSR FOR ERROR REPORT 

TRAP CSERHRD 
.yORO 729 
.WORD T7NINT 
.WORD PKTSSR 

:6ET THE CONTENTS OF TSSR 

; EXPECTED CONTENTS OF TSSR 

:IS OFF-LINE BIT SET ? 

:BHANCH IF NOT OFF-LINE 

:SET OFF-LINE IN EXPECTED DATA 

;DOES EXPECTED NATCH RECEIVED ? 

;OKAY IF HATCH 

:NBA NOT ZERO 

TRAP CSERHRD 
.WORD 730 
.UORD T7SSR 
.WORD PKTSSR 
;««««««< END SEGNENT ««««««< 
10002S: 

TRAP CtESEG 
.•CHECK FATAL FLAG FOR SET 
;BR. IF NOT SET (OK) 
.•DROP DEVICE IF INDICATED 

;//////////// END SUBTEST //////////// 
L10064: 

TRAP CSESUB 
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S950 
5951 
5952 
5953 
5954 
5955 
5956 
5957 
5958 

5959 035374 
035374 
035374 

5960 
5961 
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TEST 7. SUBTEST 4 



SE6 149 



CHECKS THAT THE PEGISTER NOOIFICATION REFUSED (RNR) BIT IN 
THE TSSR yiLL BE SfcT IF A URITE CHARACTERISTICS COWAND 
BEING EXECUTED AND ANOTHER "UC" CONNAND IS ATTEMPTED 



035376 

5962 03S402 

5963 035406 
03S406 
035412 

5964 03S414 

5965 035420 

5966 035424 

5967 035432 

5968 035440 

5969 035440 
035440 

5970 035442 

5971 035446 

5975 035450 

5976 035452 
035452 
0SS454 
035456 
035460 

5977 035462 

5978 035466 

5979 035472 

5980 035476 

5981 035502 

5982 035506 

5983 035512 

5984 035516 

5988 035520 
035520 
035522 
035524 
035526 

5989 035530 

5990 035534 
035534 
035536 
035536 
035540 

>992 035542 
5993 035546 
5994 
5995 

5999 035550 



5991 



104402 

004737 
004737 

012700 
104441 
012704 
012703 
012764 
012763 



104404 
004737 
103405 
010001 

104455 
001 333 
003550 
011506 
005037 
005037 
010465 
010365 
004737 
016501 
032701 
001006 

104455 
001334 
036260 
011520 
004737 

104406 

104410 
000056 
005737 
001004 



036630 
036556 

000000 

035630 
035672 
000010 
000010 



016464 



000006 
000006 



5$: 



BGNSUB 



JSR 
JSR 
SETPRI 



NOV 
NOV 
NOV 
NOV 

B6NSEG 

JSR 
BCS 
NOV 
ERRDF 



PC.T7RT2 
PC,T7RST 
fPRIOO 



«T7PACKET.R4 
#T7PKT.R3 
ff8..PK8CNT(R4) 
f8.,PKBCNT(R3) 



PCSOFINIT 

10S 

R0.R1 

ERRNO.SFIERR.SFIHSG 



;//////////// 6F6IN SUBTEST //////////// 
T7.4: 

TRAP CSeSUB 

;SET SECOND PACKET UP 

;SET PACKET TO INITIAL VALUES 

:LOUER PRIORITY TO ALLOW INTERRUPTS 

NOV fPRIOO.RO 
TRAP CSSPRI 
:GET THE ADDRESS OF CONNANO PACKET 
;6ET THE ADDRESS OF 2ND CND PACKET 
; START UITH HININUM ALLOWABLE VALUE 
: START WITH HINIfKM ALLOWABLE VALUE 

;»»»»»» BEGIN SEGMENT »»»»»» 



TRAP 

;D0 SOFT INIT OF CONTROLLER 
;dk IF SOFT INIT * OK 
.'SAVE CONTENTS OF TSSR 
:DEVICE FATAL ERROR DURING INIT 

TRAP 
.WORD 
.WORD 
.WORD 



002170 


101: 


CLR 


FATFLG 


; CLEAR FATAL ERROR FLAG 


002172 




CLR 


INTRECV 


:CLEAR INTERRUPT RECEIVED FLAG 


177776 




NOV 


R4,TSDB(R5) 


:SET THE PACKET ADDRESS 


177776 




NOV 


R3.TS0B(R5> 


.SECOND COfWAND PACKET 


016740 




JSR 


PCWAITF 


.•WAIT FOR SSR TO SET 


000000 




NOV 


TSSR(R5>,R1 


;GET CONTENTS OF TSSR REGISTER 


000200 




BIT 


ffSSR^RI 


.•CHECK FOR SSR (TSSR) SET 






BNE 


151 


;BR. IF SSR SET (GOOD) 






ERRDF 


ERRN0,T7SSR.PKTSSR 


.DEVICE FATAL SSR FAILED TO SET 



CtBSEG 



CSERDF 
73t 

SFIERR 
SF INSG 



017720 



JSR PC.FATCHK 
15$: CKLOOP 

ESCAPE SEG 



002172 



TST 



INTRECV 
22S 



ERRHRD ERRN0.T7N1NT.PKTSSR 



TRAP CSERDF 

.WORD 732 

.WORD T7SSR 

.WORD PKTSSR 

;INC AND CHECK FOR NORE THAN 25 ERRORS 
.-LOOP ON ERROR. IF FLAG SET 

TRAP CtCLPI 
:BV-PASS SUBTEST IF FATAL ERROR 

TRAP CSESCAPE 

.WORD 10000S-. 
:DID AN INTERRUPT OCCUR ? 
:BRANCH IF YES 
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035550 


104456 










035552 


001335 










035554 


036347 










0355S6 


011520 










6000 035560 


016501 


000000 


22$: 


NOV 


TSSN<R5).R1 


6001 035564 


012702 


110200 




NOV 


ffSSR!RHR!SC.R2 


6002 035570 


032701 


000100 




BIT 


fOfL.RI 


6003 035574 


001402 






BEQ 


251 


6004 035576 


052702 


000100 




BIS 


ffOFL.R2 


6005 035602 


020201 




25t: 


CNP 


R2,R1 


6006 035604 


001404 






BEQ 


30$ 


6010 035606 








ERRHRD 


ERRN0.T7SSR.PKTSSR 


035606 


104456 








035610 


001336 










035612 


036260 










035614 


011520 










6011 035616 






30S: 






6012 035616 








EN0SE6 




035616 












035616 


104405 










6013 035620 








ENOSUB 




035620 












035620 


104403 










6014 035622 








EXIT 


TST 


035622 


104432 










035624 


001056 











TRAP CtCRHRD 

.WORD 735 

.WORD T7NINT 

.WORD PKTSSR 

;6ET THE CONTENTS OF TSSR 

.-EXPECTED CONTENTS OF TSSR 

;I$ OFF-LINE BIT SET ? 

;BRANCH IF NOT OFF-LINE 

;SET OFF-LINE IN EXPECTED DATA 

;DOES EXPECTED NATCH RECEIVED ? 

;OKAV IF NATCH 

;NBA NOT ZERO 

TRAP CtERHRO 

.WORD 754 

.WORD T7SSR 

.WORD PKTSSR 

;««««««< END SEGMENT ««««««< 
10000$: 

TRAP C$ESEG 
;//////////// END SUBTEST 111111111111 
L10065: 

TRAP C$ESUB 

:ALL DONE WITH THIS TEST 

TRAP C$EXIT 

.WORD L10061-. 
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SEO 151 



6016 






6017 






6018 






6019 






6021 035626 






6023 03S630 






6024 03S630 


100204 




6025 035632 


035640 




6026 035634 


000000 




6027 035636 


000010 




6028 






6029 035640 






6030 035640 


035652 




6031 035642 


000000 




6032 035644 


A A AAA M 

000016 




6033 035646 


000000 


000000 


AAV J 

6034 






6035 035652 






6036 






6037 






60 SB 






6039 






6040 






6041 U396/2 






6042 035672 


100204 




6043 035674 


035702 




6044 035676 


AAAAAA 

000000 




604S 035700 


AAAA4 A 

000010 




6046 






6047 035702 






6048 035702 


035714 




6049 035704 


Aft A Aft 

000000 




60S0 05S706 


AAAA4 A 

000016 




A AC 4 AVCV4A 

6051 035710 


AAAAAA 

000000 


AAAAAA 

000000 


A AC 

6052 






6053 035714 






6054 






A AW 

6055 






A Aff 4 

6056 






A AC 9 

6057 






6058 






A AC A 

6059 






^ AA A AWWJ 

6060 035734 


115 


145 


AAA 4 AVXAV4 

6061 036031 


« 4 A 

116 


A A4 

102 


6062 036113 


4 4 A 

116 


4 A'^ 

102 








6064 036170 


103 


157 


6065 036260 


103 


157 


6066 036347 


105 


170 


6067 036440 


125 


156 


6068 036527 


102 


141 


6069 






6070 







.LOCAL STORAGE FOR THIS TEST 



.BLKB 
T7PACICET: 

.WORD 
.UORD 
.WORD 
.WORD 



T70ATA: 



.WORD 
.yORD 
.WORD 
.WORD 



10-<.-TUV2A87> 

100204 
T7DATA 
0 
8. 



T7BFR 
0 

14. 
0,0 



T7BFR: .BLKW 8. 
;♦ 

•TEST DATA FOR SUBTEST FOUR 
TTPKT: 



T7DTA: 



.WORD 
.WORD 
.WORD 
.WORD 



.WORD 
.WORD 
.WORD 
.WORD 



100204 
T7DTA 
0 
8. 



T7BUFR 
0 

14. 
0.0 



T7BUFR:.8LKW 8. 



;♦ 



:LOCAL TEXT HESSAGES FOR TEST 



.-COfVIAND PACKET FOR TEST 

.•WRITE CHAR COMNAND. WITH IE. ACK 

.'ADDRESS OF CHARACTERISTICS BLOCK 

.STARTING VALUE OF BLOCK SIZE 

:CHARACTERISTICS DATA BLOCK 
:ADDRESS OF HESSA6E BUFFER 

.LENGTH OF MESSAGE BUFFER 



.•MESSAGE BUFFER 



.•CONNAND PACKET FOR TEST 

;WRITE CHAR COMMAND. WITH IE, ACK 

.•ADDRESS OF CHARACTERISTICS BLOCK 

.•STARTING VALUE OF BLOCK SIZE 

: CHARACTER I ST ICS DATA BLOCK 
.•ADDRESS OF MESSAGE BUFFER 

.•LENGTH OF MESSAGE BUFFER 



.•MESSAGE BUFFER 



163 T7MBF: .ASCIZ 

101 T7NBA: .ASCIZ 

101 T7NNBA: .ASCJZ 

156 T7SSRM: .ASCIZ 

156 T7SSR: .ASCIZ 

160 T7NINT: .ASCIZ 

145 T7INT: .ASCIZ 

163 TST7ID: .ASCIZ 
.EVEN 



*H«««a9t Bufftr Nedlfltd tfttr MESSAGE BUFFER RELEASE CoM«nd* 
*NBA Not ClMr Afttr WRITE CHARACTERISTICS CoNMnd* 
'NBA Stt Afttr MESSAGE BUFFER RELEASE COMMfid* 

*Conttntt Of TSSR Incorrect Afttr Mttttgt Bufftr Rtltast* 
'Conttnts of TSSR Incorrtct Afttr WRITE CHARACTERISTICS* 
*EiptCttd Inttrrupt Not Rtctivtd On WRITE CHARACTERISTICS* 
'Untiptcttd Inttrrupt Rtctivtd On WRITE CHARACTERISTICS* 
*B»«fc Ptcktt Protocol* 
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035630 
100204 
035640 

000010 
035652 

000016 



035652 
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6072 
6073 
6074 
6075 
6076 
6077 
6078 

6079 036556 
6060 036556 

6081 036562 012701 

6082 036566 012721 

6083 036572 012721 

6084 036576 005021 

6085 036600 012721 
6066 036604 012721 
6087 036610 005021 
6068 036612 012721 

6089 036616 005021 

6090 036620 005011 

6091 036622 005037 

6092 036626 000207 
6093 

6094 
6095 
6C96 
6097 
6098 

6099 036630 

6100 036630 

6101 036634 

6102 036640 

6103 036644 

6104 036650 

6105 036652 

6106 036656 

6107 036662 

6108 036664 

6109 036670 

6110 036672 

6111 036674 

6112 036700 

6113 036702 
036702 
036702 
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ROUTINE TO RESTOP^ COIWANO PACKET TO START-UP (DEFAULT) VALUES 



SEO 152 



012701 
012721 
012721 
005021 
012721 
012721 
005021 
012721 
005021 
005011 
005037 
000207 



104401 



035672 
100204 
035702 

000010 
035714 

000016 



035714 



T7RST! 



SAVRE6 

NOV 

NOV 

NOV 

CLR 

NOV 

NOV 

CLR 

NOV 

CLR 

CLR 

CLR 

RTS 



fT7PACKET,R1 

f100204,(R1)4 

«T7DATA,(R1)« 

(R1)« 

f6..(R1)» 

«T7BFR,(R1)« 

(R1)« 

f14.,(R1)* 

(R1)« 

(R1) 

T7BFR 

PC 



:SAVE THE REGISTERS 

; START OF THE PACKET 

;WRITE CHARACTERISTICS WITH ACK. 

.ADDRESS OF CHAR DATA BLOCK 

: EXTENDED ADDRESS 

iSIZE OF DATA BLOCK IN BYTES 

;ADDRESS OF MESSAGE BUFFER 

.•LENGTH OF MESSAGE BUFFER 



.CLEAR 1ST LOC IN MESSAGE BUFFER 
;RETURN 



IE 



ROUTINE TO RESTORE CONNAND PACKET «2 TO START-UP (DEFAULT) VALUES 



T7RT2: 



SAVRE6 

NOV 

NOV 

NOV 

CLR 

NOV 

NOV 

CLR 

NOV 

CLR 

CLR 

CLR 

RTS 

ENOTST 



fT7PKT.R1 

#100204, (R1)« 

fT7DTA,(R1)* 

(R1)^ 

f6.,(Rl)«^ 

»T7BUFR.(R1)« 

(R1)^ 

#14..(R1)« 

(R1)« 

(R1) 

T7BUFR 

PC 



.-SAVE THE REGISTERS 

; START OF THE PACKET 

:tMlTE CHARACTERISTICS WITH ACK. 

:ADDRESS OF CHAR DATA BLOCK 

; EXTENDED ADDRESS 

.•SIZE OF DATA BLOCK IN BYTES 

.•ADDRESS OF NESSA6E BUFFER 

;LENGTH OF NESSA6E BUFFER 



: CLEAR 1ST LOC IN NESSAGE BUFFER 
:RETURN 



IE 



L10061: 



TRAP CSETST 
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SEQ 1S3 



104402 



BGNTST 

CLR 
NOV 
CLR 
NOV 
JSR 
NOV 

BGNSUB 



6116 
6117 
6118 
6119 
6120 
6121 
6122 
6123 
6124 
6125 
6126 
6127 

6128 036704 
036704 

6129 036704 005037 002170 

6130 036710 012737 005672 002146 

6131 036716 005037 003100 

6136 036722 012700 040262 

6137 036726 004737 017226 

6138 036732 012737 000002 002164 

6139 036740 T8L00P: 

6140 036740 
036740 
036740 

6141 

6142 036742 
036742 012700 000000 
036746 104441 

6143 036750 004737 016464 JSR 

6144 036754 103405 BCS 

6148 036756 010001 NOV 

6149 036760 ERRDF 
036760 104455 
036762 001441 
036764 003550 
036766 011506 

6150 036770 3t: 

6151 036770 012704 037510 NOV 

6152 036774 004737 010152 JSR 

6153 037000 103404 BCS 

6157 037002 ERRHBD 
037002 104456 
037004 001442 
037006 004754 
037010 011506 

6158 037012 

6159 037012 004737 040314 

6160 037016 012704 037440 

6161 037022 

6162 037022 
037022 



.S8TTL TEST 8: NON-TAPE NOTION CONNANDS 



THIS TEST VERIFIES PROPER OPERATION OF THE INITIALIZE 
COHNAND. TWO SUBTESTS ARE USED. THE FIRST VERIFIES THAT 
THE CONNAND RUNS TO CONPLETIOH AND STORES A VALID 
NESSA6E PACKET. THE SECOND VERIFIES THAT NON-2ER0 
VALUES IN THE COMNANO NODE FIELD CAUSES CONNAND REJECT. 



6163 

6164 037024 

6165 037030 

6166 037034 

6167 037040 

6168 037044 



104404 

005037 
005037 
010465 
004737 
103407 



002170 
002172 
177776 
017054 



41: 
5S: 

101: 



JSR 
NOV 

BGNSE6 



CLR 
CLR 
NOV 
JSR 

m 



FATFL6 

«EPRT1,EPRTSU 

KTFLO 

#TST8ID,R0 

PC.TSTSETUP 

f2..L00PCNr 



T8: : 

.'CLEAR FATAL ERROR FLAG 
:SET UP ERROR NESSA6E SWITCH 
;HOLD OFF KT11 

.ASCII NESSAGE TO IDENTIFY TEST 
:D0 INITIAL TEST SETUP 
;PERFORM 2 ITERATIONS 

;//////////// BEGIN SUBTEST //////////// 
T8.1: 

TRAP CSBSUB 



SETPRI fPRIOO 



;LOWER PRIORITY TO ALLOW INTERRUPTS 



PCSOFINIT 
38 

R0.R1 

ERRN0,SFIERR,SFINS6 



ffT8PK2.R4 
PC.WR7CHR 
48 

ERIINO.URTNSG.SFIIISG 



PC.T8REST 
fT8PACKET.R4 



NOV 
TRAP 

:D0 SOFT INIT OF CONTROLLER 

;BR IF SOFT INIT « OK 

;SAVE CONTENTS OF TSSR 

.'DEVICE FATAL ERROR DURING INIT 

TRAP 
.WORD 
.WORD 
.WORD 

WRITE CHARACTERISTICS PACKET 
ISSUE WRITE CHARACTERISTICS 
BR. IF CONNAND ISSUED OK 
WRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 



#PRIOO.RO 
CSSPRI 



CSERDF 
801 

SFIERR 
SFINSG 



FATFLG 
INTRECV 
R4.TSDB(R5) 
PC.CNKTSSR 
J5i 



CSERHRD 
802 

WRTNSG 
SFINSG 



.SET UP PACKET FOR CONNAND 

.-GET THE ADDRESS OF CONHAND PACKET 

:»»»»»» BEGIN SEGMENT »»»»»» 

TRAP CSBSEG 

: CLEAR FATAL ERROR FLAG 
.•CLEAR INTERRUPT RECEIVED FLAG 
;SET THE PACKET ADDRESS 
;WA|T FOR SSR TO SET 

U CARRY Sn tGMb BPTlIRM) 
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6169 037M6 


A4 AAA4 

010001 








6173 OSfOSO 








ERROF 


037050 


4 A4 / C C 

10443S 








AWAC 

0370S2 


001443 










AJ AAAJ 

040004 








037076 


A4 ^ C 9A 

01 1 320 








617*t 037060 


AA/.7V7 

004737 


A4 779A 

017720 




JSR 


6175 03706% 






13>: 


CKLOOP 


037064 


104406 








61 7o 037060 








ESCAPE 


03 r 066 


1 A1.A.1 A 

104410 








OjfUrU 


AAAA74. 

OOOOr* 








ill 77 AT7A79 

61 rr virvfc 


AAC7V7 


riA31 79 
0021 r 2 




TCT 

151 


il17S Af7A7iL 

61 to virvfo 


AAi AA/. 






BNc 


61 Oc viftW 










A§7«|Vt 


1 Ai./.CA 

1IM436 








03 r 102 


AAI A/./. 

001444 








Af7i Ai. 


040134 








AV71 AA 


A1 1C9A 

01 1 32U 








iLlAY AV711A 

6103 OjrllO 


016301 


AAAAAA 

000000 


221: 


NOV 


610*i Ojfll^ 


M 97A9 
01 2r 02 


AAA9AA 

000200 




W\u 
fWV 


Af 71 9A 

61 0> 03 r 120 


AY97A1 

032 rOI 


AAA1AA 

000100 




BIT 

B11 


A1 AV71 3Z 

6106 03 r 124 


AA1A.A9 

001402 






Acn 
BcB 


6l0r 0Sr126 


AC97A9 
032 r 02 


AAA1AA 

000100 




BIS 


AIM AV71V9 
61 Be 03r132 


A9A9A1 

020201 




231: 


CNr 


6107 U3rl3% 


001 






BBA 

Bell 


0173 U3r136 








CBBUBB 
CnKnliP 


AV71 ViL 
03r 136 


10*436 








U3f 14U 


0014*3 








V3r142 


03 r 332 








U3f 1*4 


011320 








A10A A^71AA 






XAC« 
3U«: 




A10C AV71/.A, 
6173 U3r1%0 




01033* 


331: 


ICB 


6176 U3rl32 


103403 






Brc 
BLS 


62UU 03rl3* 






f 


CBBUBA 


AV71 KA. 
03f 134 


104*36 








037136 


001446 








037160 


004643 








AV74 

03r16c 


A4 A9AA 

016200 








6201 03r164 










03f 164 












104409 








6202 037166 






59S: 


ENDSUB 


037166 










037166 


104403 








6203 037170 


005737 


002170 




TST 


6204 037174 


001402 






BEQ 


6205 037176 


004737 


017772 




JSR 


6206 037202 






60S: 
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R0.R1 



PCFATCHK 



INTRECV 
22S 



TSSR(RS).R1 
ffSSR,R2 
fOFL.RI 
25S 

#0FL.R2 
R2.R1 
30S 

ERRHRO ERRN0.T8NBA.PKTSSR 



PC.CKRAN 
59$ 



FATFLG 
60S 

PC.CKOROP 



:SAVE CONTENTS OF TSSR 




.'DEVICE FATAL SSR FAILED TO SET 




TRAP 


CSERDF 


.WORD 


803 


.WORD 


T8SSR 


.WORD 


PKTSSR 


ilHK mHO lHclK tvm NORc IHAN 23 


cnrOnS 


.LOOP ON ERROR. IF FLAG SET 




TRAP 


CSCLP1 


:BY-PASS SUBTEST IF FATAL ERROR 




TRAP 


CfESCAPE 


.WORD 


10000S-. 


:DID AN INTERRUPT OCCUR ? 




.BRANCH IF rES 





TRAP CSERHRD 
.WORD 804 
.WORD T8NINT 
.WORD P<TSSR 

;GET THE CONTENTS OF TSSR 

:EXPECTED CONTENTS OF TSSR 

;1S OFF-LINE BIT SET ? 

.BRANCH IF NOT OFF-LINE 

;SET OFF-LINE IN EXPECTED DATA 

.DOES EXPECTED HATCH RECEIVED ? 

;0KAY IF NATCH 

;NbA NOT ZERO 

TRAP CSERHRD 
.WORD 805 
.WORD T8NBA 
.WORD PKTSSR 

.•CHECK RAM TO NENORY 
.-RAM OK 60 ON 
;THEV DON'T NATCH 

TRAP CSERHRD 
.WORD 806 
.WORD PKTRAM 
.WORD RANERR 

;««««««< END SEGMENT ««««««< 
10000S: 

TRAP CSESEG 
;\\\\\\\\\\\\\ END SUBTEST WWWWWNW 
L10067: 

TRAP CSESUB 

;ANY FATAL ERRORS ? 

.•BRANCH IF NOT 

;TRV TO DROP TNE UNIT 



n 12 
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SEO 1SS 



6208 
6209 
6210 
6211 
6212 
6213 
62U 
6215 
6216 

6217 037202 
037202 
037202 

6218 

6219 037204 
037204 
037210 

6220 037212 
037212 

6221 
6222 

6223 037214 

6224 037220 

6228 037222 

6229 037224 
037224 
037226 
037230 
037232 

6230 037234 

6231 037234 

6232 037240 

6233 037244 

6237 037246 
037246 
037250 
037252 
037254 

6238 037256 

6239 037256 

6240 037262 

6241 037266 

6242 037266 

6243 037272 

6244 037276 

6245 037302 

6246 037306 

6247 037310 

6251 037312 
037312 
037314 
037316 
037520 

6252 037322 
037522 

6253 057524 
057524 
057526 



104402 



012700 
104441 

104404 



004737 
105405 
010001 

104455 
001447 
003550 
011506 

012704 
004737 
105404 

104456 
001450 
004754 
011506 

004757 
012704 

005057 
052714 
010465 
004757 
105405 
010001 

104455 
001451 
040004 
011520 

104406 

104410 
000074 



.-TEST 8. SUBTEST 2 

•CHECK THAT NON-ZERu NODE BITS BEING SET CAUSES 
; INITIALIZE CONNANO TO BE REJECTED 



000000 



016464 



057510 
010152 



5$: 



040514 
057440 

002172 
007400 
177776 
017054 



4$: 



5t: 
108: 



15$: 



B6NSUB 

SETPRI fPRIOO 
B6NSE6 



JSR 
BCS 
MOV 
ERRDF 



PCSOFINIT 
58 

RO.RI 

ERRNO.SFIERR.SFIHSG 



NOV 
JSR 
BCS 
ERRNRO 



fT8PK2.R4 
PC.URTCHR 
4$ 

ERRN0«URTNSG.SFIHS6 



JSR 
NOV 

CLR 
BIS 
NOV 
JSR 
BCS 
NOV 
ERRDF 



PC.T8REST 
fT8PACKET«R4 

INTRECV 

fP.N0DE,(R4) 

R4,TS0B(RS> 

PCCHKTSSR 

15t 

RO.RI 

ERRNO.TBSSR.PKTSSR 



CKLOOP 
ESCAPE SEC 



;//////////// BEGIN SUBTEST //////////// 
T8.2: 

TRAP CS8SUB 

.-LOWER PRIORITY TO ALLOW INTERRUPTS 

NOV fPRIOO, RO 
TRAP CSSPRI 

;»»»»»» BEGIN SEGMENT »»»»»» 

TRAP CSBSE6 



;D0 SOFT INIT OF CONTROLLER 

;BR IF SOFT INIT s OK 

;SAVE CONTENTS OF TSSR 

••DEVICE FATAL ERROR DURING INIT 

TRAP CSERDF 
.WORD 807 
.WORD SFIERR 
.WORD SFINS6 

;WRITE CHARACTERISTICS PACKET 

; ISSUE WRITE CHARACTERISTICS 

:BR. IF COMMAND ISSUED OK 

.'WRITE CHARACTERISTISC FAILED 

TRAP CSERHRD 
.WORD 808 
.WORD WRTNSG 
.WORD SFINSG 

;SET UP PACKET FOR COMMAND 

:GET THE ADDRESS OF COMMAND PACKET 



; CLEAR INTERRUPT RECEIVED FLAG 

: NON-ZERO COMMAND MODE BITS 

;SET THE PACKET ADDRESS 

.-WAIT FOR SSR TO SET 

:BR IF CARRY SET (GOOD RETURN) 

:SAVE CONTENTS OF TSSR 

.'DEVICE FATAL SSR FAILED TO SET 

TRAP 
.WORD 
.WORD 
.WORD 

;LOOP ON ERROR. IF FLAG SET 

TRAP 

.'BY-PASS CHECKS IF FATAL ERROR 

TRAP 

jam 



CSERDF 
809 
T8SSR 
PKTSSR 

CSCIPI 

CSESCAPE 
AQQfiOt-. 



CZTUUAO TU80 FRONT END PRT A MACRO H1200 
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62S4 017330 

Wb^^ WW* WWW 


00S737 

wV^ • W« 


0021 72 




TST 

■ W 1 


62SS 037334 


001004 

WW ■ WWt 






BNE 


62S9 037336 








ERRHRD 


037336 

V w • www 


104456 

I W^^ WW 








037340 

vw« w^w 


001452 

WV « ~ Wb 








037342 

WW* 


040134 

W^W ■ w~ 








037344 


011520 








6260 037346 


016501 


000000 


22S: 

bw w • 


MOV 


6261 037352 


012702 

w * lb * Wfc 


100206 




MOV 


6262 037356 

WfcWfc Wvf «P^W 


032701 


000100 




BIT 

WA ■ 


6263 037362 


001402 






BEQ 


6264 037364 


052702 


000100 




BIS 


6265 037370 


020201 




25$: 


CMP 


6266 037372 


001404 






BEQ 


6270 037374 








ERRHRD 


037374 


104456 








037376 


001453 








037400 


037612 








037402 


011520 








6271 037404 






30S: 




6272 037404 


004737 


010354 


35$: 


JSR 


6273 037410 


103405 






BCS 


6277 037412 








ERRHRD 


037412 


104456 








037414 


001454 








037416 


004643 








037420 


016200 








6278 037422 








ENDSE6 


037422 










037422 


104405 








6279 










6280 037424 






59$: 


ENOSUB 


037424 










037424 


104403 









N 12 
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INTRECV 
22$ 

ERRN0J8NINT.PKTSSR 



TSSR(R5).R1 

«SC!SSR!TSREJ.R2 

ffOFL.RI 

25$ 

«0FL,R2 

R2,R1 

30$ 

ERRN0,T82REJ,PKTSSR 



SEQ 156 



PCCKRAN 
59$ 

ERRNO.PKTRAM.RAMERR 



;DID AN INTERRUPT OCCUR ? 
.•BRANCH IF YES 

TRAP C$ERHRD 
.WORD 810 
.WORD T8N1NT 
.WORD PKTSSR 

;GET THE CONTENTS OF TSSR 

.•EXPECTED CONTENTS OF TSSR 

:IS OFF-LINE BIT SET ? 

.•BRANCH IF NOT OFF-LINE 

:SET OFF-LINE IN EXPECTED DATA 

:DOES EXPECTED MATCH RECEIVED ? 

.-OKAY IF MATCH 

.COMMAND NOT REJECTED 

TRAP C$ERHRD 
.WORD 811 
.WORD T82REJ 
.WORD PKTSSR 

; CHECK RAM TO MEMORY 
.-RAM OK 60 ON 
;THEY DON'T MATCH 

TRAP C$ERHRD 
.WORD 812 
.WORD PKTRAM 
■WORD RAMERR 
;«<««««« END SEGMENT <«««««« 
10000$: 

TRAP CSESEG 

;\\\\\\\\\\\\\ END SUBTEST \\\\\\\\\\\\\ 
LI 0070: 

TRAP C$ESUB 
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6284 037426 
037426 
037430 

6285 
6286 
6287 
6288 
6289 

6291 037432 

6293 037440 

6294 037440 

6295 037442 

6296 037444 

6297 037446 
6298 

6299 037450 

6300 037450 

6301 037452 

6302 037454 

6303 0S74S6 
6304 

6305 037462 

6306 

6307 

6309 037502 

6311 037510 

6312 0S7S10 
6315 037512 

6314 037514 

6315 037516 
6316 

6317 037520 

6318 037520 

6319 037522 

6320 057524 

6321 037526 
6322 

6323 057552 

6524 

6525 

6526 

6527 

6528 

6529 

6550 

6551 057552 

6552 057612 
6555 057675 
6554 057725 
6535 040004 

6336 040060 

6337 040154 

6338 040212 

6339 040262 
6340 

6341 



104432 
000770 



100204 
057450 
000000 
000010 



057462 
000000 
000016 
000000 



100204 
057520 
000000 
000010 



057552 
000000 
000016 
000000 



000000 



000000 



EXIT 



TST 



:LOCAL STORAGE FOR THIS TEST 



.BLKB 
T8PACKET: 

.UORD 
.WORD 
.WORD 
.yORD 



T8DATA: 



.WORD 
.WORD 
.WORD 
.WORD 



10-<.-TUV2Al7> 

100204 
T8DATA 
0 
8. 



T8BFR 

0 

14. 
0.0 



T8BFR: .BLKW 8. 



T8PK2: 



.BUB 10-<.-TUV2Al7> 



T8DTA: 



.WORD 
.WORD 
.WORD 
.WORD 



.WORD 
.WORD 
.WORD 
.WORD 



100204 
T8DTA 
0 
8. 



T8BF2 
0 

14. 
0,0 



T8BF2: .BLKW 8. 



; LOCAL TEXT MESSAGES FOR TEST 



;ALL DONE THIS TEST 



TRAP 
.WORD 



CtEXIT 
L10066< 



.COMMAND PACKET FOR TEST 

: WRITE CHAR COMhAND. WITH IE, ACK 

.ADDRESS OF CHARACTERISTICS BLOCK 

;STARTING VALUE OF BLOCK SIZE 

.•CHARACTERISTICS DATA BLOCK 
.•ADDRESS OF MESSAGE BUFFER 

.•LENGTH OF MESSAGE BUFFER 



.•MESSAGE BUFFER 



.•COMMAND PACKET FOR TEST 

.•WRITE CHAR COMMAND. WITH IE. ACK 

.ADDRESS OF CHARACTERISTICS BLOCK 

.•STARTING VALUE OF BLOCK SIZE 

.•CHARACTERISTICS DATA BLOCK 
.•ADDRESS OF MESSAGE BUFFER 

; LENGTH OF MESSAGE BUFFER 



.•MESSAGE BUFFER 



111 


116 


111 


T8NBA: 


.ASCIZ 


111 


116 


111 


T82REJ: 


.ASCIZ 


107 


105 


124 


T85REJ: 


.ASCIZ 


107 


105 


124 


T84REJ: 


.ASCIZ 


105 


157 


156 


T8SSR: 


.ASCIZ 


105 


157 


156 


T8SR2: 


.ASCIZ 


105 


170 


160 


T8NINT: 


.ASCIZ 


111 


156 


145 


T8TS8A: 


.ASCIZ 


116 


157 


156 


TST8ID: 


.ASCIZ 
.EVEN 



INITIALIZE CoMMd Not Acctpttd* 

INITIALIZE Not Rtjtctod With Non-Ztro Nodt Field* 

GET STATUS Not Acctpttd* 

GET STATUS Not Rtjtcttd With Non-Ztro Hodt Fltld* 
Conttntt of TSSR Incorrtct Afttr INITIALIZE* 
Conttnts of TSSR Incorrtct Afttr GET STATUS* 
Exptcttd Inttrrupt Not Rtctlvtd On INITIALIZE* 
incorrtct TSBA Addrtss Afttr INITIALIZE* 
Non-Ttpt Motion CoMtnds* 
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CZTUWAO TU80 FRONT END PRT A HACRO N1200 
TEST 8: NON-TAPE ftOTION CO*mAN0S 



29-flAR-83 13:2A PAGE 95 



iEQ 158 



6343 






6344 






6345 






6346 






6347 






6348 






6349 






6350 






6351 040314 






6352 040314 






6353 040320 


012701 


037440 


6354 040324 


012721 


100213 


6355 040330 


005021 




6356 040332 


005021 




6357 040334 


005021 




6358 040336 


005021 




6359 040340 


005021 




6360 040342 


005021 




6361 040344 


005021 




6362 040346 


005011 




6363 040350 


005037 


037462 


6364 040354 


000207 




6365 






6366 






6367 






6368 






6369 






6370 






6371 






6372 0403S6 






6373 0^0356 






6374 040362 


012701 


037440 


6375 040366 


012721 


100217 


6376 040372 


005021 




6377 040374 


005021 




6378 040376 


005021 




6379 040400 


005021 




6380 040402 


005021 




6381 040404 


005021 




6382 040406 


005021 




6383 040410 


005011 




6384 040412 


005037 


037462 


6385 040416 


000207 




6386 040420 






040420 






040420 


104401 





ROUTINE TO REST0»F COWMND PACKET TO START-UP (DEFAULT) VAlUES 
INITIALIZE CONNAND 



T8REST: 



SAVftEG 
NOV 

nov 

CLR 
CLR 
CLR 
CLR 
CLR 
CLR 
CLR 
CLR 
CLR 
RTS 



fT8PACKET.R1 

«100213,(R1)« 

(RD* 

(RD* 

(RD* 

(RD* 

(R1)« 

(R1)« 

(R1)« 

(R1) 

T8BFR 

PC 



.SAVE THE REGISTERS 

; START OF THE PACKET 

INITIALIZE WITH ACK, IE 

: ADDRESS OF CHAR DATA BLOCK 

; EXTENDED ADDRESS 

.SIZE OF DATA BLOCK IN BYTES 

.•ADDRESS OF MESSAGE BUFFER 

: LENGTH OF MESSAGE BUFFER 



:CLEAR 1ST LOC IN MESSAGE BUFFER 
.'RETURN 



ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
GET STATUS COMMAND 



T8RT2: 



SAVRE6 

MOV 

MOV 

CLR 

CLR 

CLR 

CLR 

CLR 

CLR 

CLR 

CLR 

CLR 

RTS 

ENOTST 



•T8PACKET.R1 

ff100217.(R1)« 

(R1)« 

(R1)» 

(RD* 

(R1)» 

(R1)« 

(R1)« 

(R1)^ 

(R1) 

T8BFR 

PC 



.•SAVE THE REGISTERS 

.•START OF THE PACKET 

;GET STATUS WITH ACK. IE 

: ADDRESS OF CHAR DATA BLOCK 

.•EXTENDED ADDRESS 

.•SIZE OF DATA BLOCK IN BYTES 

.•ADDRESS OF MESSAGE BUFFER 

.•LENGTH OF MESSAGE BUFFER 



.•CLEAR 1ST LOC IN MESSAGE BUFFER 
; RETURN 



L10066: 



TRAP CSETST 



D 13 
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6389 

6390 

6391 

6392 

6393 

6394 

6395 

6396 

6397 

6398 

6399 

6400 

6401 

6402 

6403 

6404 

640S 

6406 

6407 

6408 

6409 

6410 

6411 

6412 

6413 

6414 

6415 040422 
040422 

6416 040422 005037 002170 

6417 040426 012737 005672 002146 

6418 040434 005037 003100 

6423 040440 012700 042070 

6424 040< '« 004737 017226 

6425 040450 012737 000002 002164 

6426 040456 
6427 
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.SBTTL TEST 9: DHA HEMORY ADDRESSING 



TEST 1 

TEST DESCRIPTION 



This ttst v«rff1ts that tht control Itr can proptrly addrtss and 
acctst all avallablt CPU MMory (othtr than that occupltd by tht 
diagnostic and diagnostic suptrvlsor codt) for ooth rtading (OATI) 
and Mfltlng (DATO). Vtrlfltd art tht LSI-11 Bus drivtrs for all 
aval labia addrtss lints. Up to this point only 16 bits havt bttn 
ustd for DMA transftrs. 



TEST STEPS 

REPEAT FROM 1 TO LOOPCNT 
BEGIN 

Do Subttst 1 
Do Subttst 2 
Do Subttst 3 
Do Subttst 4 

END 



Vtrify GET STATUS stltcttd locations 
Vtrify Mssagt packtts stltcttd locations 
Vtrify Characttrlstic data stltcttd locations 
Vtrify NXN to stltcttd Invalid addrtssts 



T9L00P: 



6GNTST 

CLR 
NOV 
CLR 
NOV 
JSR 
NOV 



FATFL6 

fEPRTi.EPRTSU 
KTFLG 
fTST9I0,R0 
PC.TSTSETUP 
#2., LOOPCNT 



T9: : 

;CLEAR FATAL ERRORFLAG 
;SET UP ERROR NESSA6E SWITCH 

;HOLD OFF KT11 

:ASCII NESSA6E TO IDENTIFY TEST 
;D0 INITIAL TEST SETUP 
;PERFORH 2 ITERATIONS 

:LOOP ON TEST LABEL 



E 13 
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SEQ 160 



6429 

6430 

6431 

6432 

6433 

6434 

6435 

6436 

6437 

6438 

6439 

6440 

6441 

6442 

6443 

6444 

644S 

6446 

6447 

6448 

6449 

64S0 

64S1 

64S2 

64S3 

6454 

64SS 

64S6 

6457 

6458 040456 
040456 
040456 

6459 
6460 

6461 040460 

6462 040464 
6463 



6465 040470 

6466 040474 

6467 040476 

6468 040476 

6469 040500 
040500 
040502 
040504 
040506 

6470 
6471 

6472 040510 

6473 040510 

6474 040514 

6475 040520 

6476 040524 

6477 040530 

6478 040534 



.SBTTL TEST 9: SUBTEST 1: GET STATUS SELECTED LOCATIONS 

TEST 9: SUBTEST 1: 

SUBTEST DESCRIPTIUri: 

This subtttt vtrHIt* tht controller can fttch • got statu* 

coMiand froa all avallablt AMory locations. 

Two word blocks art tosttd ont at a tiM by first sttting 

all avallablt ataory to a background patttrn of 1252S2. 

A 6tt Status coMand fs than txtcutod to various addrossos in 

oach avallablt atiory 4k word block. Tht various addrtssts 

art dtttr«1ntd by floating a 1 than a 0 through tht addrtss bits. 

TEST STEPS: 

BEGIN 

Fill NtMry with background patttrn of 125252 

Uritt to TSSR to soft Inltlalixt 

Do a IMITE CHARACTERISTICS to sttup a Mtssagt bufftr 

REPEAT FOR SELECTED VALID ADDRESSES IN DIAGNOSTIC FREE SPACE AND ABOVE 32k 
BEGIN 

Gtt a valid •odulo-4 ttst addrtss 

Do a GET STATUS cowMnd fron tht ttst addrtss 

END 

END 



BGNSUB 



104402 



012700 125252 
004737 020212 



004737 016464 
103405 

010001 

104455 
001605 
003550 
011506 



;//////////// BEGIN SUBTEST ////////// 
T9.1 : 

TRAP CSBSUB 



;F1ll Ntnory with background patttrn of 12S2S2 

MOV f12S252.R0 .BACKGROUND DATA 

JSR PC.FILLNEN .'FILL HENORY WITH BACKGROUND DATA 



;Wr1tt to TSSR to soft Inltlallzt 
JSR PCSOFINIT 
BCS 15$ 
NEXT.ERRNO 
NOV R0.R1 

ERRDF ERRNO.SFIERR.SFINSG 



:D0 SOFT INIT OF CONTROLLER 
:BR IF SOFT INIT « OK 

;SAVE CONTENTS OF TSSR 

.•DEVICE FATAL ERROR DURING INIT 

TRAP CKRDF 
.yORD 901 
.WORD SFIERR 
.WORD SFINS6 



012704 
004737 
005037 
010465 
004737 



041660 
043426 
003102 
177776 
017054 



;Do a 

15S: 



WRITE CHARACTERISTICS to Sttup a Mssagt bufftr 



NOV 
JSR 
CLR 
NOV 
JSR 

FORCERROR 

arc 9A* 



fT9PACKET.R4 
PC.T9SURT 
KTENABLE 
R4.TSDB(R5) 
PC.CHKTSSR 
17$ 



;GET THE ADDRESS OF COMNAND PACKET 

.•RESTORE PACKET TO STARTING VALUES 

.•TURN OFF KT-11 

:SET THE PACKET ADDRESS 

;UAIT FOR SSR TO SET 



• M ir ««B CfT IM rUKT««B 
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SEO 161 



M80 040SS2 
M81 0405S4 
6482 040554 
040554 
040556 
040560 
040562 

6483 
6484 
648S 
6486 

6487 040564 

6488 040570 

6489 040574 

6490 040600 

6491 040600 

6492 040604 

6493 040606 

6494 040610 

6495 040614 

6496 040616 

6497 040622 

6498 040626 

6499 040634 

6500 040640 

6501 040642 

6502 040646 

6503 040652 

6504 040656 

6505 040662 

6506 040664 

6507 040670 
6506 040674 

6509 040700 

6510 040714 

6511 040716 

6512 040720 

6513 040720 
040720 
040722 
040724 
040726 

6514 040730 
040730 

6515 040732 

6516 040732 

6517 040742 

6518 040746 

6519 040750 

6520 040754 

6521 040760 

6522 040762 

6523 040766 

6524 040770 

6525 040776 

6526 041002 



010001 



104455 
001606 
042172 
011520 



005037 
005037 
012702 

005037 
012201 
005000 
005737 
001407 
016200 
042700 
012737 
004737 
103034 
013704 
013703 
004737 
042703 
050304 
004737 
010465 
004737 

103405 
010001 



1044SS 
001607 
042116 
011550 

104406 



020227 042066 
103002 

000137 040600 

005737 041730 
003012 

005737 003100 
001407 

012737 000001 041730 

012702 041734 

000137 040600 



17$: 



NOV R0,R1 
NEXT.ERRNO 

ERRDF ERRN0,T9URTSSR,PKT$SR 



:SAVE CONTENTS OF TSSR 

.-DEVICE FATAL SSR FAILED TO SET 

TRAP CSERDF 

.UORD 902 

.yORD T9IMTSSR 

.WORD PKTSSR 



002170 
041730 
041734 

003102 



041730 

177776 
177774 

000001 003102 
042736 

041724 
041722 
043474 
177774 

020064 
177776 
017054 



:V0r1fy • Gtt Status can bt fttchad fron tach addrttt 
;60t a valid Mdulo-4 tttt addrtss 
:Do a GET STATUS coMMnd froa tht ttit 



:Do a 

201: 



T91L00P: 



CLR 
CLR 
NOV 



FATFL6 
T9KT 

fT9BLK.R2 



25f: 



32S: 



40$: 
65$: 



70$: 



CLR KTENABLE 

NOV (R2)«.R1 

CLR RO 

TST T9KT 

BEQ 25$ 

NOV -2(R2),R0 

BIC f*C<A1716>.R0 

NOV #1. KTENABLE 

JSR PC,T9C0NVERT 

BCC 65$ 

NOV T9L0ADD.R4 

NOV T9H1ADD,R3 

JSR PC.T9SET6ET 

BIC f*C<Al716>.R3 

BIS R3.R4 

JSR PC.KTOFF 

NOV R4,TSDB(R5) 

JSR PCCNKTSSR 
FORCERROR 32$ 

BCS 40$ 

NOV RO.RI 
NEXT.ERRNO 

ERRDF ERRN0.T96ETSSR.PKT6ETS 



addrtst 

; CLEAR FATAL ERROR FLAG 
:TEST ABOVE 28K SWITCH 
.•POINT TO TEST PATTERN TABLE 

.•TURN OFF ABOVE 28K TEST FLAG 
:6ET TEST PATTERN ADDRESS 
.•ASSUNE NO TEST ABOVE 28K 
;TEST ABOVE 28K THIS TINE? 
*BR IF NO 

•GET TEST PATTERN AGAIN 
;SAVE 18 BIT ADDRESS ONLt 
.•TURN ON ABOVE 28K TEST FLAG 
.•CONVERT TEST PATTERN TO TEST ADDRESS 
:BR IF INVALID PACKET ADDRESS 
:COPY CURRENT PACKET LOW ADDRESS 
:CUPY CURRENT PACKET HIGN ADDRESS 
.•SETUP CURRENT PACKET TO GET STATUS 
.SAVE ADDRESS BITS 17^16 
.•SETUP 18 BIT PACKET ADDRESS 
;TURN OFF KT-11 

;SET THE PACKET ADDRESS TO EXECUTE 
.•WAIT FOR SSR TO SET 



:BR IF SSR SET 
;SAVE CONTENTS 



IN CHKTSSR 
OF TSSR 



CKLOOP 



FORCEXIT 
CNP 
BHIS 
JNP 
TST 
BGT 
TST 
BEQ 
NOV 
NOV 
JNP 

ICD 



.DEVICE FATAL SSR FAILED TO SET 

TRAP 
.WORD 
.WORD 
.WORD 

.•LOOP ON ERROR. IF FLAG SET 

TRAP 



C$ERDF 
903 

T9GETSSR 
PKTGETS 

C$CLP1 



80$ 



R2.ffT9T6£ .DONE ALL TSTBLK TEST PATTERNS? 

70$ ;BR IF YES 

T91L00P :D0 ANOTHER NOOULO- 4 ADDRESS 
T9KT .'DONE ABOVE 28K TESTING TOO? 

80$ :BR IF YES 

KTFLG :ANY NENORY ABOVE 28K ON SYSTEN? 

80$ :BR IF NO 

f1.T9KT ;SET SWITCH 

fT^LK.R2 .-RESET TEST PATTERN TABLE 

T91L00P :D0 ABOVE 28K TESTING 
or rfncr •TURN OFF KTTI 



6 13 
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6528 041012 
041012 
041012 

6529 041014 

6530 041020 

6531 041022 

6532 041026 
6533 



104403 
005737 
001402 
004737 



002170 

01/772 



100$: 



EN0SU8 



TST 
BEO 
JSR 



F.MFLG 
100» 

PC.CKDROP 



;\\\\\\\\\\\\\ END SUBTEST WWWWWWN 
LI 0072: 

TRAP CSESUB 

;ANV FATAL ERRORS ? 

.BRANCH IF NOT 

;TRV TO DROP THE UNIT 
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SEQ 163 



65SS 

6536 

6537 

6538 

6539 

6540 

6541 

6542 

6543 

6544 

654S 

6546 

6547 

6548 

6549 

6550 

6551 

6552 

6553 

6554 

6555 

6556 

6557 

6558 

6559 

6560 

6561 

6562 

6563 

6564 

6565 

6566 

6567 

6568 041026 
041026 
041026 

6569 
6570 

6571 041030 

6572 041034 
6573 

6574 

6575 041040 

6576 041044 

6577 041046 
A578 041046 
6S79 041050 

041050 
041052 
041 0S4 
041056 

6580 
6581 

6582 041060 

6583 041060 

6584 041064 

t^W AllOfO 



.SBTTL TEST 9: SUBTEST 2: NESSA6E PACKETS TO SELECTED LOCATIONS 

TEST 9: SUBTEST 2: 

SUBTEST DESCmPTluN: 

Thft tubtttt vtrifitt tht controUtr can dffposU atttagt packtts 
to all avaUabU Msory locations. 

First all avallablt MNory It Mt to a background patttrn 

of 125252. 

Uritt Characttrlttlct co«andt art than txtcutttf vltli Mttagt 
bufftr addrttttt tat to varlout addrttttt In tach avallablt 
MMory location. 

Tht varlout addrttttt art dtttrnlntd by floating a 1 tbtn a 0 
through tht addrttt bitt. 

TEST STEPS: 

BEGIN 

nil Ntt»ry with background patttrn of 125252 
untt to TSSII to toft Inltlalitt 

Do a WRITE CHARACTERISTICS to tttup a Mttagt bufftr to coapart 

REPEAT FOR SELECTED ADDRESSES IN DIAGNOSTIC FREE SPACE AND ABOVE 32K 
BEGIN 

Gtt a valid •odulo-4 tttt addrttt 

Stt tht packtt Mttagt bufrtr to tht TEST ADDRESS 

Do a WRITE CHARACTERISTICS 

Rtttort tht tttt Mttagt bufftr to background patttrn 

END 



END 



B6NSUB 



104402 



012700 
004737 



004737 
103405 

010001 

104455 
001610 
003SSO 
011506 



012704 
004737 
0047^ 



'J 1 1 III II III I BEGIN SUBTEST I II 1111111 
T9.2: 

TRAP CSBSUB 



125252 
020212 



016464 



:FUl NtMry Mlth background patttrn of 125252 

NOV f125252,R0 :BACKGROUND DATA 

JSR PC.FILLNEN :FILL NENORY WITH BACKGROUND DATA 



;Ur1tt to TSSR to toft inltlallit 
JSR PC.SOFINIT 
BCS 15$ 
NEXT.ERRNO 
NOV RO.RI 

ERRDF ERRN0.5FIERR«SFINSG 



;D0 SOFT INIT OF CONTROLLER 
:BR IF SOFT INIT * OK 

.SAVE CONTENTS OF TSSR 

.•DEVICE FATAL ERROR DURING INIT 

TRAP CSERDF 
.WORD 904 
.WORD SFIERR 
.WORD SFINS6 



041660 
043426 
020064 



:Do a WRITE CHARACTERISTICS to tttup a Mttagt bufftr to coapart 

15$: 



NOV fT9PACKET.R4 
JSR PC.T9SWRT 
JSR PCKTOFF 



;GET THE ADDRESS OF COHNANO PACKET 
;SET PACKET TO WRITE CHARACTERISTICS 
:TURM Off KT-11 



I IS 
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SEO 164 



6586 041074 

6587 041100 
658S 041104 

6589 041120 

6590 041122 

6591 041124 

6592 041124 
041124 
041126 
041130 
041132 

6593 
6594 
6595 

6596 041134 

6597 041140 

6598 041144 

6599 041144 

6600 041146 

6601 041150 

6602 041154 

6603 041160 

6604 041164 

6605 041166 

6606 041172 

6607 041176 
6606 041202 

6609 041210 

6610 041216 

6611 041222 

6612 041226 

6613 041232 

6614 041246 

6615 041250 

6616 041252 

6617 041252 
041252 
041254 
041256 
041260 

6618 041262 
041262 

6619 041264 

6620 041274 

6621 041300 

6622 041302 

6623 041306 

6624 041312 
041312 
041312 

6625 041314 

6626 041320 

6627 041322 

6628 041326 



010465 177776 
004737 017054 

103405 
010001 



104455 
001611 
042172 
011520 



005037 002170 
012703 041734 



17S: 



NOV R4,TSDB(R5) 
JSR PCCHKTSSR 
FORCERROR 17S 
BCS 20t 
NOV RO.Nl 
NEXT.ERRNO 

ERRDF ERRN0.T9yRTSSR.PKTSSR 



:6tt • valid •odulo-4 test addrett 

;Stt the packet Mttaoe buffer to the te«t address 

;Do a yRJTE CHARACTERISTICS 



:SET THE PACKET ADDRESS 
;UAIT FOR SSR TO SET 

;BR IF SSR SET IN CHKTSSR 
;SAVE CONTENTS OF TSSR 

;DEVICE FATAL SSR FAILED TO SET 

TRAP 
.UORD 
.yORD 
.yORD 



CtERDF 
905 

T9WRTSSR 
PKTSSR 



012301 
010100 
042700 
042701 
004737 
103402 
000137 
012704 
004737 
013737 
013737 
004737 
010465 
004737 

103405 
010001 



104455 
001612 
042172 
011520 

104406 



|0$: 

T92L00P: 



177774 
000001 
043130 

041264 
041660 
043426 

041724 041670 
041722 041672 
020064 
177776 
017054 



251: 



CLR 
NOV 

NOV 
NOV 
BIC 
BIC 
JSR 
BCS 
JHP 
NOV 
JSR 
NOV 
NOV 
JSR 
NOV 
JSR 



FATFLG 
fT9BLK.R3 

(R3)«.R1 
R1.R0 
#1 77774 .RO 
#1 .R1 
PC,T9CT2 
258 
1508 

fT9PACKET.R4 
PC ,19811111 
T9LOAO0,T9DATA 



328: 



508: 



T9NIA0D,T9DATA«2 
PC.KTOFF 
R4,TS0B(RS) 
PCCHKTSSR 
FORCERROR 328 
BCS 508 
NOV RO.RI 
NEXT.ERRNO 

ERRDF ERRN0.T9URTSSR.PKTSSR 



; CLEAR FATAL ERROR FLAG 
:POINT TO TEST PATTERN TABLE 

;6ET TEST PATTERN ADDRESS 
;6ET ADDRESS ALL "18 BITS" 
.•LEAVE ONLY A17 AND A16 
;ALUAVS ON A VORD BOUNDRY 
; CONVERT TEST PATTERN TO TEST ADDRESS 
;BR IF VALID NESSAGC BUFFER ADDRESS 
:6ET ANOTHER TEST PATTERN TO TRY 
;SET THE COHHAND PACKET ADDRESS 
;SETUP T9PACKET TO WRITE CHAR. 
.-SETUP LOW ORDER NESSA6E BUFFER ADD. 



CKLOOP 



020327 042066 
103002 

000137 041144 

004737 020064 



104403 

005737 002170 
001402 

004737 017772 



1508: FORCEXIT 



1608: 



1808: 



CHP 
BHIS 
JNP 
JSR 

ENDSUB 



TST 
BEO 
JSR 



R3.fT9TBE 
1608 
T92L00P 
PC.KTOFF 



FATFLG 
1808 

PC.CKDROP 



1608 



; SETUP HIGH ORDER NESSAGE BUFFER ADD. 
;TURN OFF KT-11 

:SET THE PACKET ADDRESS TO EXECUTE 
.WAIT FOR SSR TO SET 

;BR IF SSR SET IN CHKTSSR 
;SAVE CONTENTS OF TSSR 

.DEVICE FATAL SSR FAILED TO SET 

TRAP CSERDF 

.WORD 906 

.WORD T9WRTSSR 

.WORD PKTSSR 

;LOOP ON ERROR. IF FLAG SET 

TRAP C8CLP1 



:DONE ALL TST9BLK TEST PATTERNS? 
:BR IF YES 
:D0 ANOTHER NODULO- 4 ADDRESS 
.-TURN OFF KT11 

;\\\\\\\\\\\\\ END SUBTEST WWVVWVWW 
L10073: 

TRAP C8ESUB 

:ANY FATAL ERRORS ? 

.•BRANCH IF NOT 

;TRY TO DROP THE UNIT 
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SEO 165 



6630 

6631 

6632 

6633 

6634 

6635 

6636 

6637 

6638 

6639 

6640 

6641 

6642 

6643 

6644 

6645 

6646 

6647 

6648 

6649 

6650 

6651 

6652 

6653 

6654 

6655 

6656 

6657 

6658 

6659 

6660 

6661 

6662 

6663 041326 
041326 
041326 

6664 
6665 

6666 041330 

6667 041334 
66 6 8 

6669 

6670 041340 

6671 041344 

6672 041346 

6673 041346 

6674 041350 
041350 
041352 
041354 
041356 

6675 
6676 

6677 041360 

6678 041364 

6679 041370 
MSO 041374 



.SBTTL TEST 9: SUBTEST 3: CHARACTERISTIC DATA SELECTED LOCATIONS 

TEST 9: SUBTEST 3: 

SUBTEST DESCRIPTION: 

This tubtttt vtrlfitt tht control Itr can fttch • 
Uritt Ctearacttrlttlct data block fro* all avallablt 
Mnory locations. 

First all avallablt MMory It ttt to a background 
patttrn of 125252. 

Thtn Urltt Characttrlttlct coMMndt art txtcuttd tilth 
characttrlttic data blocks at various —mory addrtssts. 
Tht various MNory addrtssts art dtttmlntd by floating 
a 1 thtn a 0 through tht addrtss bits. 

TEST STEPS: 

BEGIN 

Fill Ntaorv with background patttrn of 125252 
yntt to TSSR to soft Inltlalixt 

REPEAT FOR SELECTED VALID ADDRESSES IN DIAGNOSTIC FREE SPACE AND ABOVE 32K 
BEGIN 

Gtt a valid ttst addrtss 

Stt tht ttst packtt characttrlstlcs data polnttr to tht 
ttst tMrtss. 

Stort tKMcttd characttrlstic data In ttst addrtss block 
Do a URITE CHARACTERISTIC co«Mnd 

END 

END 



104402 



012700 
004737 



004737 
103405 

010001 

104455 
001613 
003550 
011506 



005037 
005037 
012703 



125252 
020212 



016464 



;//////////// BEGIN SUBTEST ////////// 
T9.3: 

TRAP CSBSUB 

;FUl Htnory ulth background patttrn of 125252 

NOV i12525S.R0 .'BACKGROUND DATA 

JSR PC.FILLKN .FILL NEHORV MITH BACKGROUND DATA 



;Wr1tt to TSSR to soft InltlaUit 
JSR PC^SOFINIT 
BCS 20$ 
NEXT.ERRNO 
NOV R0.R1 

ERRDF ERRNO.SFIERR.SFINSG 



002170 
041730 
041734 



:Gtt a valid ttst addrtss 

208: CLR FATFLG 
CLR T9KT 
NOV fT9BLK,R3 

T93L00P: 



:D0 SOFT INIT OF CONTROLLER 
:BR IF SOFT INIT « OK 

;SAVE CONTENTS OF TSSR 

.•DEVICE FATAL ERROR DURING INIT 

TRAP CURDF 
.VORD 907 
.WORD SFIERR 
.UORD SFINS6 



; CLEAR FATAL ERROR FLAG 

;TEST ABOVE 28K SWITCH 

; POINT TO TEST PATTERN TABLE 
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SEO 166 



6681 041374 

6682 041400 

6683 041402 

6684 041404 

6685 041410 

6686 041414 

6687 041420 

6688 041422 

6689 041426 

6690 041432 

6691 041440 

6692 041444 

6693 041446 
6694 

6695 041452 

6696 041456 

6697 041462 

6698 041470 

6699 041476 
6700 

6701 041502 

6702 041506 

6703 041512 

6704 041516 

6705 041532 

6706 041534 

6707 041536 

6708 041536 
041536 
041540 
041542 
041544 

6709 041546 
041546 

6710 041550 

6711 041550 

6712 041554 

6713 041556 

6714 041562 

6715 041566 

6716 041570 

6717 041574 

6718 041576 

6719 041604 

6720 041610 

6721 041614 

6722 041620 
041620 
041620 

6723 041622 

6724 041626 

6725 041630 

6726 041634 

6727 041634 

6728 041640 

6729 041642 

6730 041646 



003102 



177774 
000003 
041730 

177776 
177774 

000001 003102 
042736 

041550 

041660 
043426 

041724 000002 
041722 000004 
043536 

020064 
177776 
017054 



005037 
012301 
010100 
042700 
042701 
005737 
001407 
016300 
042700 
012737 
004737 
103402 
000137 

012704 
004737 
013764 
013764 
004737 

004737 
010465 
004737 

103405 
010001 



104455 
001614 
042172 
011520 

104406 

020327 042066 
103002 

000137 041374 

005737 041730 
003012 

005737 003100 
001407 

012737 000001 041730 

012703 041734 

000137 041374 

004737 020064 



104403 

005737 002170 
001402 

004737 017772 

004737 017174 
103002 

000137 040456 



25S: 



:Stt 



CLR 
NOV 
NOV 
BIC 
BIC 
TST 
BEQ 
NOV 
BIC 
NOV 
JSR 
BCS 
JNP 

tht ttst 
NOV 
JSR 
NOV 
NOV 
JSR 

yRITE 
JSR 
NOV 
JSR 



KTENABLE 
(R3)^.R1 
RI.RO 

#^ 77774.ro 
f3.Nl 
T9KT 
25S 

-2<R3).R0 
ff*C<Al716>.R0 
f 1 .KTENABLE 
PC.T9C0NVERT 
30i 
608 



.•TURN OfF ABOVE 28K TEST FLAG 
:6ET TEST PATTERN ADDRESS 
;GET ADDRESS ALL '18 BITS" 
; LEAVE ONLY A17 AND A16 
.-GET RID OF A17 AND A16 
.•TEST ABOVE 28K THIS TINE? 
*BR IF NO 

•GET TEST PATTERN AGAIN 
:SAVE 18 BIT ADDRESS ONLY 
:TURN ON ABOVE 28K TEST FLAG 
: CONVERT TEST PATTERN TO TEST ADDRESS 
;BR IF VALID TEST ADDRESS 
;GET NEXT TEST PATTERN 



packtt characttrlttlcs data polnttr to tht ttst tddrtss 



fT9PACKET.R4 
PC.T9StfRT 
T9LOAD0.PKLOU(R4) 
T9NIADD.PKHI(R4) 
PC.T9CHAR 
;Do • yRITE CHARACTERISTIC coMtnd 
PC.KTOFf 
R4.TS0B(R5} 
PC.CHKTSSR 
FONCERROR 32S 
BCS 40$ 
NOV R0.R1 
NEXT.ERRNO 
328: ERRDf ERRN0«T9URTSSR.PKTSSR 



40t: 
60S: 

658: 



701: 



75f: 
loot: 



1058: 



CKLOOP 



CNP 

BNIS 

JNP 

TST 

BGT 

TST 

BEQ 

NOV 

NOV 

JMP 

JSR 

ENDSUB 



TST 
BEQ 
JSR 

JSR 
BCC 
JNP 



R3.fT9TBE 
658 

T93L00P 

T9KT 

708 

KTFLG 

708 

f1,T9KT 
fT9BLK.R3 
T93L00P 
PC.KTOrr 



FATFL6 
758 

PC.CKDROP 
PC.TSTLOOP 

lost 

T9L00P 



.'GET THE ADDRESS OF CONNAND PACKET 
.•RESTORE PACKET TO STARTING VALUES 
:STORE CHAR. DATA PTR LOW ADDRESS 
.•STORE CHAR. DATA PTR HIGH ADDRESS 
.•STORE EXPECTED DATA IN DATA BLOCK 

.•TURN OFF KT-11 

:SET THE PACKET ADDRESS TO EXECUTE 
;IIAIT FOR SSR TO SET 

:BR IF SSR SET IN CHKTSSR 
.•SAVE CONTENTS OF TSSR 

:DEVICE FATAL SSR FAILED TO SET 

TRAP CtERDF 

.WORD 908 

.WORD T9URTSSR 

.WORD PKTSSR 

;LOOP ON ERROR. IF FLAG SET 

TRAP CtCLPI 



:DONE ALL TSTBLK TEST PATTERNS? 
*BR IF YES 
:D0 ANOTHER NODULO- 4 ADDRESS 

.•DONE ABOVE 28K TESTING TOO? 
;BR IF YES 

.•ANY HENORY ABOVE 28K ON SVSTEN? 

:BR IF NO 
;SET SUITCH 

:RESET TEST PATTERN TABLE 
;00 ABOVE 28K TESTING 

:TURN OFF KT11 

;\\\\\\\\\\\\\ END SUBTEST \\\\\\\\\\\ 
L10074: 

TRAP CSESUB 

.ANY FATAL ERRORS ? 

:BRANCH IF NOT 

;TRY TO DROP THE UNIT 

.•SHOULD UE DO ITERATIONS? 
*BR IF NO 

•LOOP UNTIL ITERATION COUNT DONE 
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SEQ 167 



6731 041646 

6732 041 6S2 
041652 
041654 

6733 
6734 
6735 
6736 
6737 
6738 

6740 041656 

6742 041660 

6743 041660 

6744 041662 

6745 041664 

6746 041666 
6747 

6748 041670 

6749 041670 

6750 041672 

6751 041674 

6752 041676 
6753 

6754 041702 
6755 

6756 041722 

6757 041724 

6758 041726 

6759 041730 

6760 041732 
6761 

6762 
6763 
6764 
6765 

6766 041734 

6767 041736 

6768 041740 

6769 041742 

6770 041744 

6771 041746 

6772 041750 

6773 041752 

6774 041754 

6775 041756 

6776 041760 

6777 041762 

6778 041764 

6779 041766 

6780 041770 

6781 041772 

6782 041774 

6783 041776 

6784 042000 

6785 042002 

6786 042004 

6787 042006 



004737 020064 

104432 
001724 



JSR 
EXIT 



PC.KTOFF 
TST 



;TURN OFF HENORV MANA6ENENT 
:ALL DONE THIS TEST 

TRAP CSEXIT 
.WORD L10071-. 



:LOCAL STORAGE FOR THIS TEST 



100004 
041670 
000000 
000010 



041702 
000000 
000016 

000000 000000 



T9PACICET: 



.BLKB 10-<.-TUV2A87> 



.WORD 
.yORD 
.WORD 
.WORD 



100004 
T9DATA 
0 
8. 



T9DATA: 



000000 
000000 
000000 
000000 
000000 





.WORD 


T9BFR 






.WORD 


0 






.yORD 


14. 






.WORD 


0,0 




T98FR: 


.BLKU 


8. 




T9HIADD: 




.WORD 


0 


T9L0ADD: 




.WORD 


0 


T9PAR6: 


.yoRD 


0 




T9ICT: 




.WORD 


0 


T94TST: 


.UORD 


0 





;♦ 



.TABLE OF ADDRESSES 



000001 
000002 
000003 
000005 
000006 
000007 
000011 
000012 
000013 
000021 
000022 
000023 
000041 
000042 
000043 
000101 
000102 
000103 
000201 
000202 
000203 
000401 



T98LIC: .WORD 


000001 


.WORD 


000002 


.WORD 


000003 


.WORD 


000005 


.WORD 


000006 


.WORD 


000007 


.WORD 


000011 


.WORD 


000012 


.WORD 


000013 


.WORD 


000021 


.WORD 


000022 


.WORD 


000023 


.WORD 


000041 


.WORD 


000042 


.WORD 


000043 


.WORD 


000101 


.WORD 


000102 


.WORD 


000103 


.WORD 


000201 


.WORD 


000202 


.WORD 


000203 


.WORD 


000401 



.-COMMAND PACKET FOR TEST 

.WRITE CHARACTERISTICS COMMAND, WITH ACK 

:ADDRESS OF CHARACTERISTICS BLOC< 

.•STARTING VALUE Of BLOCK SI2E 

;CHARACTERISTICS DATA BLOCK 

:LOW ADDRESS OF MESSAGE BUFFER 
.-HIGH ORDER OF f SSA6E BUFFER 
.•LENGTH OF HESSA .£ BUFFER 



.-MESSAGE BUFFER 

;HI6H ADDRESS 

;LUW ADDRESS 
; ADDRESS IN PAR FORMAT 

.-TEST ABOVE 28K SWITCH 
.•ADDRESS TEST BIT 
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678S 042010 

6789 042012 

6790 042014 

6791 042016 

6792 042C20 

6793 042022 
67V4 042024 

6795 042026 

6796 042030 

6797 042032 

6798 042034 

6799 042036 

6800 042040 

6801 042042 

6802 042044 

6803 C42046 
042050 
042052 

6806 0420S4 

6807 042056 

6808 042060 

6809 042062 

6810 042064 

6811 042066 
6812 
6813 
6814 
6815 

6816 042070 

6817 042116 

6818 042172 

6819 042261 

6820 042357 

6821 042445 

6822 042536 

6823 042627 
6824 
6825 
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SEQ 168 



6804 
6805 



000402 


.WORD 


000402 


000403 


.WORD 


000403 


001001 


.WORD 


001001 


AAA 

001002 


.WORD 


001002 


AAA AAV 

001003 


.WORD 


001 u03 


002001 


.WORD 


002001 


002002 


.WORD 


A A AAA A 

002002 


AA'^AAV 

002003 


.WORD 


AA AA A9 

002003 


A t AAA 

004001 


.WORD 


AAJ AAA 

004001 


004002 


.WORD 


AAJ AA<% 

004002 


004003 


.WORD 


AA J AAV 

004003 


A« AAA4 

010001 


.WORD 


A A AAA A 

010001 


A4 AAA9 

010002 


.WORD 


010002 


010003 


.WORD 


010003 


020001 


.WORD 


A A AAA 4 

020001 


020002 


.WORD 


020002 




LMDfk 




040001 


.WORD 


040001 


040002 


.WORD 


040002 


040003 


.WORD 


040003 


100001 


.WORD 


100001 


100002 


.WORD 


100002 


100003 


.WORD 


100003 


177777 


T9T8E: .WORD 





177777 

;♦ 

;L0CAL TEXT MESSAGES FOR TEST 



104 
103 
103 
115 
102 
105 
127 
124 



115 
157 
157 
145 
141 
170 
162 
123 



101 TST9ID: .ASCIZ 

156 T96ETSSR: 

156 T9URTSSR: 

163 T9IIS68UF: 

143 T98KGND: 

160 T9NINT: .ASCIZ 

151 T9DPR: 

123 T9NXn: 

.EVEN 



'DMA Mtiory Addrtssing* 

.ASCIZ *Conttnts of TSSR Incorrtct AfCtr GET STATUS* 
.ASCIZ *Conttnts of TSSR Incorrtct Afttr WRITE CHARACTERISTICS* 
.ASCIZ *MtSMgt Bufftr Conttntt Incorrtct Afttr WRITE CHARACTERISTICS* 
.ASCIZ 'Background Pttttrn Disturbtd By WRITE CHARACTERISTICS* 
*Exptcttd Inttrrupt Not Rtctlvtd On WRITE CHARACTERISTICS* 
.ASCIZ *llr1tt Characttrlstic data In rm dots not Mtch txptcttd* 
.ASCIZ *TSSR NXM bit faUtd to stt whtn nor fxisttnt MAory addrtss sptcifl 
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SEQ 169 



6827 

6828 

6829 

6830 

6831 

6832 

6833 

6834 

6835 

6836 

6837 

6838 

6839 

6840 

6841 

6842 

6843 042736 

6844 042736 

6845 042742 

6846 042746 

6847 042752 

6848 042756 
6449 042762 
68:0 042764 

6851 C4c77C 

6852 042774 

6853 043000 

6854 043002 

6855 043006 

6856 043012 

6857 043016 

6858 043022 

6859 043026 

6860 043030 

6861 043032 

6862 043036 « 

6863 043040 

6864 043044 

6865 043046 

6866 043050 

6867 043054 

6868 043056 

6869 043062 

6870 043064 

6871 043070 

6872 043072 

6873 043076 

6874 043100 

6875 043104 

6876 043106 

6877 043112 

6878 043116 

6879 043120 

6880 043122 

6881 043124 

6882 043126 



005037 
005037 
005037 
042701 
010005 
004737 
01i?02 
062702 
060102 
042702 
013703 
162703 
010237 
010237 
020203 
101007 
020237 
103007 
005737 
001004 
000424 
162702 
000754 
005737 
001420 
005737 
001413 
004737 
010500 
010037 
010201 
004737 
010037 
103403 
000241 
000401 
000261 
000207 



ROUTINE TO CONVERT A TEST PATTERN TO A VALID ADDRESS IN DIAGNOSTIC FREE SPACE 
DIAGNOSTIC FREE SPACE IS BETWEEN THE END OF THE DIAGNOSTIC AND THE 
BEGINNING OF THE SUPERVISOR. THIS IS ALWAYS BELOW 24K. 
IF MEMORY AbOVE 28K SPECIFIED (VIA R1) THEN PAR 6 IS SET 
TO THE RELOCATION BASE. 
INPUTS: 

RO HIGH ORDER ADDRESS BITS 
R1 LOW ORDER ADDRESS BITS 

OUPTUTS: 

T9PAR6 s ADDRESS BIASED TO PAR6 IF >28K UNDER TEST 
T9HIADD s HIGH ORDER ADDRESS IN NON PAR6 FORMAT 
T9L0ADD ' LOW ORDER ADDRESS IN NON PAR6 FORMAT 
C BIT s 1 IF GOOD ADDRESS RETURNED 

C BIT s 0 IF TEST PATTERN DID NOT YIELD A VALID ADDRESS 
t9C0NVERT: 









SAVRE6 


;SAVE R1-RS UNTIL NEXT RETURN 


041724 






CLR 


T9L0ADD .-CLEAR LOW ADDRESS 


041722 






CLR 


T9HIADD : CLEAR HIGH ADDRESS 


041726 






CLR 


T9PAR6 


CLEAR PAR6 BIASED ADDRESS 


170000 






BIC 


#*C<7777>.R1 


FORCE TO LOWER 12 BITS OF ADDRESS 








MOV 


RO.RS 


SAVE HIGH ORDER ADDRESS BITS 


020064 






JSR 


PCKTOFF 


'SHUTOFF MEMORY MANAGEMENT 


003072 






MOV 


FREE.R2 


GET FIRST FREE ADDRESS 


000020 






ADD 


f16..R2 


IN CASE TEST PATTERNsO 








ADD 


R1.R2 


ADD IN TEST PATTERN 


000003 






BIC 


«3.R2 


MAKE IT M0DUL0-'4 


003076 




25$: 


MOV 


FREEHI.R3 


GET LAST FREE ADDRESS 


000020 






SUB 


«16.,R3 


SAVE AT LEAST 8 WORDS (IN CASE MESSAGE 


041724 






MOV 


R2.T9L0ADD 


SAVE POSSIBLE LOW ADDRESS 


041726 






MOV 


R2.T9PAR6 


-SAVE IT IN PAR6 BIASED TOO 








CMP 


R2.R3 


;IS THIS ADDRESS ABOVE FREE SPACE? 








BHI 


35$ 


BR IF YES 


003072 






CMP 


R2.FREE 


;IS IT IN FREE SPACE? 








6HIS 


50$ 


-BR IF YES- ITS GOOD 


003102 






TST 


KTENABLE 


-TESTING ABOVE 28K? 








BNE 


50$ 


;BR IF YES 








BR 


90$ 


;BR IF NOT IN FREE SPACE 


000020 




35$: 


SUB 


ff16..R2 


IFORCE FIT THE TEST PATTERN 






BR 


25$ 


;TRY THIS TEST PATTERN ADDRESS 


003102 




50$: 


TST 


KTENABLE 


; TESTING ABOVE 28K? 








BEQ 


100$ 


'BR IF NO 


003100 






TST 


KTFLG 


;ANY MEMORY ABOVE 28K? 








BEQ 


90$ 


;BR IF NO 


020046 






JSR 


PC.KTON 


;TURN ON NENORY MANAGEMENT 






MOV 


R5.R0 


;6ET HIGH ORDER ADDRESS 


041722 






NOV 


R0.T9HIADD 


;SAVE POSSIBLE HIGH ADDRESS 






MOV 


R2.R1 


;GET COMPUTED LOW ORDER ADDRESS 


020106 






JSR 


PC.SETMAP 


(RETURN PAR6 BIASED ADDRESS IN RO 


041726 






MOV 


R0,T9PAR6 


;COPY PAR6 BIASED ADDRESS 






BCS 


105$ 


;BR IF VALID ADDRESS 






90$: 


CLC 




;CLR C BIT FOR FAILURE 








BR 


105$ 








100$: 


SEC 




:SET SUCCESS 






105$: 


RTS 


PC 


{RETURN 
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SEQ 170 



68M 
6MS 
6886 
6887 
6888 
6889 
6890 
6891 
6892 
6893 
6894 
6895 
6896 
6897 
6898 
6899 
6900 

6901 043130 

6902 043134 

6903 043140 

6904 043144 

6905 043150 

6906 043154 

6907 043156 

6908 043162 

6909 043166 

6910 043172 

6911 043174 

6912 043200 

6913 043204 

6914 043210 

6915 043214 

6916 043216 

6917 043220 

6918 043224 

6919 043226 

6920 043232 
6931 043234 

6922 043236 

6923 043242 

6924 043244 

6925 043250 

6926 043252 

6927 043256 

6928 043260 

6929 043264 

6930 043266 

6931 043272 

6932 043274 

6933 043300 

6934 043304 

6935 043306 

6936 043310 

6937 043312 

6938 0433U 



005037 
00503/ 
005037 
042701 
010005 
004737 
013702 
062702 
060102 
013703 
162703 
010237 
010237 
020203 
101007 
020237 
103007 
005737 
001004 
000424 
162702 
000754 
005737 
001420 
005737 
001413 
004737 
010500 
010037 
010201 
004737 
010037 
103403 
000241 
000401 
000261 
000207 



041724 
041722 
041726 
170000 

020064 
003072 
000020 

003076 
000020 
041724 
041726 



003072 
003102 

000020 

003102 

003100 

020046 

041722 

020106 
041726 



ONLY FOR MESSAGE BUFFER ADDRESSES 

ROUTINE TO CONVERT A TEST PATTERN TO A VALID ADDRESS IN DIAGNOSTIC FREE SPACE 
DIAGNOSTir FREE SPACE IS BETWEEN THE END OF THE DIAGNOSTIC AND THE 
BEGINNING Or THE SUPERVISOR. THIS IS ALWAYS BELOW 24K. 
IF MEMORY ABOVE 28K SPECIFIED (VIA R1) THEN PAR 6 IS SET 
TO THE RELOCATION BASE. 
INPUTS: 

RO HIGH ORDER ADDRESS BITS 
R1 LOW ORDER ADDRESS BITS 
OUPTUTS: 

T9PAR6 s ADDRESS BIASED TO PAR6 IF >28K UNDER TEST 
T9HIADD s HIGH ORDER ADDRESS IN NON PAR6 FORMAT 
T9L0ADD * LOW ORDER ADDRESS IN NON PAR6 FORMAT 
C BIT * 1 IF GOOD ADDRESS RETURNED 

C BIT « 0 IF TEST PATTERN DID NOT YIELD A VALID ADDRESS 



f9CT2: 


SAVREG 


;SAVE R1-R5 UNTIL NEXT RETURN 




CLR 


T9L0ADD : CLEAR LOW ADDRESS 




CLR 


T9HIADD ; CLEAR HIGH ADDRESS 




CLR 


T9PAR6 


; CLEAR PAR6 BIASED ADDRESS 




BIC 


fC<7777>,Rl 


; FORCE TO LOWER 12 BITS OF ADDRESS 




MOV 


R0.R5 


;SAVE HIGH ORDER ADDRESS BITS 




JSR 


PC.KTOFF 


iSHUTOFF MEMORY MANAGEMENT 




MOV 


FREE.R2 


;GET FIRST FREE ADDRESS 




ADD 


f16..R2 


;IN CASE TEST PATTERN^O 




ADD 


R1 ,R2 


;ADD IN TEST PATTERN 


25$: 


MOV 


FREEHI,R3 


;GET LAST FREE ADDRESS 




SUB 


f16..R3 


;SAVE AT LEAST 8 WORDS (IN CASE MESSAGE BUFFER) 




MOV 


R2.T9L0A0D 


;SAVE POSSIBLE LOW ADDRESS 




MOV 


R2.T9PAR6 


;SAVE IT IN PAR6 BIASED TOO 




CMP 


R2.RS 


;IS THIS ADDRESS ABOVE FREE SPACE? 




BHI 


35$ 


;BR IF YES 




CMP 


R2.FREE 


ilS IT IN FREE SPACE? 




BHIS 


50$ 


;BR IF YES- ITS GOOD 




TST 


KTENABLE 


; TESTING ABOVE 28K? 




BNE 


50$ 


;BR IF YES 




BR 


90$ 


;BR IF NOT IN FREE SPACE 


35$: 


SUB 


#16. .R2 


; FORCE FIT THE TEST PATTERN 




BR 


25$ 


;TRY THIS TEST PATTERN ADDRESS 


50$: 


TST 


KTENABLE 


; TESTING ABOVE 28K? 




BEQ 


100$ 


;BR IF NO 




TST 


KTFLS 


;ANY MEMORY ABOVE 28K? 




BEQ 


90$ 


;BR IF NO 




JSR 


PCKTON 


;TURN ON MEMORY MANAGEMENT 




MOV 


R5.R0 


;6ET HIGH ORDER ADDRESS 




MOV 


R0.T9HIADD 


;SAVE POSSIBLE HIGH ADDRESS 




MOV 


R2.R1 


;GET COMPUTED LOW ORDER ADDRESS 




JSR 


PC.SETMAP 


{RETURN PAR6 BIASED ADDRESS IN RO 




MOV 


R0,T9PAR6 


;COPY PAR6 BIASED ADDRESS 




BCS 


105$ 


;BR IF VALID ADDRESS 


90$: 


CLC 




;CLR C BIT FOR FAILURE 




BR 


105$ 




100$: 


SEC 




■SET SUCCESS 


105$: 


RTS 


PC 


; RE TURN 
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SEQ 171 



69^0 
69A1 
6942 
6943 
6944 
6945 
6946 
6947 
6948 
6949 
6950 
6951 
6952 
6953 
6954 
6955 

6956 043316 

6957 043316 

6958 043322 

6959 043326 

6960 043332 

6961 043334 

6962 043340 

6963 043346 

6964 043352 

6965 043356 

6966 043362 

6967 043366 

6968 043370 

6969 043372 

6970 043374 

6971 043376 

6972 043402 

6973 043404 

6974 043406 

6975 043410 

6976 043412 

6977 043414 

6978 043416 

6979 043424 
6980 

6981 
6982 
6983 

6984 043426 

6985 043426 

6986 043432 

6987 043436 
6968 043442 

6989 043446 

6990 043450 

6991 0434S4 

6992 043460 

6993 043462 

6994 043466 

6995 043470 



012701 
012702 
005003 
004737 
112765 
004737 
010265 
004737 
116511 
122124 
001401 
005203 
005202 
020227 
002761 
005703 
001402 
000241 
000401 
000261 
012737 
000207 



tkt mi m'% 



012701 
012721 
012721 
005C21 
012721 
012721 
005021 
012721 
005021 
00S011 



ROUTINE TO READ THE FIRST 2 BYTES FROM RAH 
NEHORV AND COMPARE THIS DATA TO A COMMAND PACKET. 
INPUT: 

R4 ADDNcSS OF THE COMMAND PACKET 
R5 FIRST DEVICF UNIBUS ADDRESS 

OUTPUT: 

CARRY SET - RAM MATCHES PACKET 

CLR - RAM DOES NOT NATCH PACKET 
IMPLICIT OUTPUT: 

THE TABLE RAMDATA IS FILLED UITH fHE 
DATA HELD IN RAM. 

RANSIZ SET TO 2 FOR PRAMPKT ROUTINE 
SIDE EFFECTS: 

THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 

t9CKRAN: : 



002206 
000020 

017054 

000000 177776 

017054 

177776 

017054 

177776 



000022 



10$: 



20$: 



000002 002246 



SAVRE6 




SAVE THE GENERAL REGISTERS 


MOV 


fRANDATA,R1 


;ADDRESS TO SAVE THE RAN DATA 


NOV 


ffRNPKTBE6.R2 


;BYTE ADDRESS OF FIRST RAM DATA 


CLR 


R3 


; CLEAR THE ERROR FLAG 


JSR 


PC.CHKTSSR 


;UAIT FOR SSR 


MOVB 


ffO.TSDB(R5) 


;SET NAINTENANCE NODE 


JSR 


PCCNKTSSR 


lUAIT FOR SSR TO SET 


NOV 


R2,TSD8(R5> 


; SELECT NEXT RAN ADDRESS 


JSR 


PCCHKTSSR 


;UAIT FOR SSR TO SET 


NOVB 


TSBA(R5).(R1) 


;READ THE RAH DATA 


CNPB 


(R1)««(R4)4 


iCONPARE 10 EXPECTED 


BEO 


20$ 


[BRANCH IF OK 


INC 


R3 


;SET ERROR FLAG 


INC 


R2 


•ADDRESS OF NEXT RAN LOCATION 


CNP 


R2,fRNPKTBE6«2 


[DONE 2 BYTES? 


BLT 


10$ 


;BR IF NO 


TST 


R3 


;UAS AN ERROR FOUND ? 


BEO 


30$ 


[BRANCH IF NOT 


CLC 




[CLEAR CARRY TO SHOW ERROR 


BR 


50$ 


[AND EXIT 


SEC 




-SHOU GOOD COHPARE 


NOV 


ff2*RANSlZ 


[SETUP RANSIZ 


RTS 


PC 


[RETURN 



30$: 
50$: 



ROUTINE TO SETUP PACKET TO WRITE CHARACTERISTICS 



T9SWRT: 



041660 
100004 
041670 

000010 
041702 

000016 



SAVREG 




:SAVE THE REGISTERS 


NOV 


fT9PACKET,R1 


.-START OF THE PACKET 


NOV 


#100004, (R1>« 


:URIT| CHARACTERISTICS WITH ACK 


NOV 


fT9DATA,(ni>« 


.•ADDRESS OF CHAR DATA BLOCK 


CLR 


(RD* 


; EXTENDED ADDRESS 


NOV 


f8.,(R1)* 


:SIZE OF DATA BLOCK IN BYTES 


NOV 


fT9BFR*<R1)« 


;ADDRESS OF NESSA6E BUFFER 


CLR 


(R1)« 




NOV 


ff14.,(R1)« 


; LENGTH OF NE3SAGE BUFFER 


CLR 


(R1)« 




CLR 


<R1) 
ar 


• BCTIIDU 
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SEQ 172 



6997 
6998 
6999 
7000 
7001 
7002 

7003 043474 

7004 043474 

7005 043500 

7006 043502 

7007 043506 

7008 043510 

7009 043512 

7010 043516 

7011 043520 

7012 043524 

7013 043530 

7014 043532 

7015 043534 
7016 

7017 
7018 

7019 043536 

7020 043556 

7021 043542 

7022 043546 

7023 043552 

7024 043556 

7025 043560 

7026 043564 

7027 043566 

7028 043570 

7029 043572 

7030 043574 

7031 043576 

7032 043600 
043600 
043600 



010401 
005737 
001404 
010300 
004737 
010001 
012700 
052700 
010021 
005021 
000207 



012700 
013701 
005737 
001402 
013701 
012021 
012021 
012021 
012021 
012021 
000207 



104401 



ROUTINE TO SETUP A GET STATUS COHMAND PACKET AT CURRENT PACKET ADDRESS 
R3 HIGH ORDER PACKET ADDRESS 
R4 L9U ORDER PACKET ADDRESS 
NOTE: R3 IS IGNORED IF KTENABLE FLAG CLEAR 



003102 



020106 

000017 
100000 



T9SETGET: 

SAVREG 
BOV 
TST 
BEQ 
BOV 
JSR 
BOV 
ROV 
BIS / 
ROV 
" CLR 
RTS 



10S: 



;SAVE THE REGISTERS 
R4.R1 jGET LOU ORDER ADDRESS 

KTENABLE : TESTING ABOVE 28K? 

10S :BR IF NO 

R3.R0 :GET HIGH ORDER ADDRESS 

PC.SETHAP .'RETURN ADDRESS BIASED TO PAR6 IN RO 

R0.R1 ;GET ADDRESS 

ffP.GETSTATUS.RO :GET STATUS COKRAND CODE NO IE 
«P.ACK.RO :SET ACK 

R0.(R1)« . ' , :STORE GET STATUS IN PACKET 
(R1)« ;\ . x:;CLEAR UNUSED WORD 
PC - :{ r ;RETURN 



;ROUTINE TO SETUP A CHARACTERISTIC DATA BLOCK AT A TEST ADDRESS 



T9CHAR: 



041670 

041724. 

003102 

041726 



10$: 



SAVREG 

BOV - 
ROV ' 
TST V 

BEOrC 
ROV V. 
ROV 
ROV 

ROV{v. 

Rov;^< ; 

;rov,'.'., 

RTS s 
;ENDTST 



.#T9DATA.R0 
rT9LOA0D,R1 : 
; KTENABLE,; 
.^10$ Vi.', 

T9PAR6.R1 ? 

(R0)^.(R1)« 
:(R0)*.(R1)» 

(R0)*.(R1)*; 
;(R0)^;(R1)« 

(R0)^.(R1)> 



:SAVE R1-R5 UNTIL NEXT RETURN 
>;GET T9PACKET DATA POINTER 

.•ASSURE NOT ABOVE 28K 

.•TESTING ABOVE 28K? 

;BR IF NO ^ ; 

.'SET TEST ADDRESS ABOVE 28K 

.'STORE DATA UORD 1 

; STORE DATA UORD 2 

; STORE DATA UORD 3 
STORE DATA UORD. 4 
'.'STORE DATA UORD 5 
.;RETURN '\ . 

L10071: 



TRAP CSETST 
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S£0 17J 



7034 
7035 
7036 
7037 
703ft 
7039 
7040 
7041 
7042 
7043 
7044 
704S 
7046 
7047 
7048 
7049 
7050 
7051 
7052 
7053 
7054 

7055 043602 
043602 

7056 043602 

7057 043606 

7058 043614 

7064 043620 

7065 043624 

7066 043630 

7067 043636 

7068 043636 
7069 

7070 043642 

7071 043646 

7072 043652 

7073 043660 

7074 043660 

7075 043664 

7076 043666 

7077 043670 
043670 
043672 
043674 
043676 

7078 
7079 

7000 043700 

7081 043704 

7082 043710 

7083 043714 

7084 043730 

7085 043732 

7086 043734 

7087 043734 
043734 
043736 



.SBTTL TEST 10: INITIALIZE AFTER WRITE CHARACTERISTICS 

TEST DESCRIPTION: 

This tttt vtrlfitt that • Nard«f«rt InltfallM coMiand 
Invokttf aftar a WrUa Charactarfttlcs coMiand stts up 
tha CoMand, Matta^a and Charactarlttlc iMgt blocks 
In tha controllar raa corractly. 

TEST STEPS: 

REPEAT FOR LOOPCNT 
BE6IN 

Do WRITE CHARACTERISTICS coMMand. 

If tha N8A bit In tha TSSR raglttar Is NOTsO than Print Error. 
WrUa to TSSR raoUtar to soft inltlaUsa tha controllar 
If controllar RAM 310-377 NOT«0 than Print Error 

END 



005037 002170 

012737 005672 002146 

005037 003100 

012700 044252 

004737 017226 

012737 000002 002164 

004737 044526 



T10L00P: 



BGNTST 

CLR 
NOV 
CLR 
NOV 
JSR 
NOV 



012703 
012704 
012764 

004737 
103405 
010001 

104455 
001 750 
003550 
011506 



005037 002170 
01046S 177776 
004737 017054 

103407 
010001 



002732 
044210 

000010 000006 
01646% 



58: 



JSR 

NOV 
NOV 
NOV 

JSR 

•cs 

NOV 
ERRDF 



FATFL6 

ffPRTI.EPDTSW 
KTFL6 

«TST10ID,R0 
PCTSTSETOP 
f2.A00PCNT 

PC.TIOREST 

fTSTBLK«10.,R3 

#T10PACKET.R4 

f8.«PKBCHT(R4) 



T10:: 

.•CLEAR FATAL ERROR FLAG 
; SET UP ERROR NESSA6E SWITCH 
.•HOLD OFF KT11 

;ASCII NESSA6E TO IDENTIFY TEST 
:D0 INITIAL TEST SETUP 
.•PERFORN 2 ITERATIONS 

;SET PACKET TO START-UP VALUES 

; START OF TEST DATA 

:6ET THE ADDRESS OF CQNNAND PACKET 

.•START WITH NININUN ALLOWABLE VALUE 



PC.SOFINIT 

101 

RO.RI 

ERRNO.SFIERR.SFINSG 



104455 
001751 



;Do WRITE CHARACTERISTICS coMand. 
10S: CLR FATFLG 

NOV R4.TSDB(R5) 

JSR PC.CHKTSSR 

FORCERROR 12t 

BCS 15t 

NOV R0.R1 

NEXT.ERRNO 
12$: EBRDF ERRNO.TIOSSR.PKTSSR 



.WRITE TO TSSR TO SOFT INITIALIZE 

:BR IF SOFT INIT OKAY 

.•SAVE CONTENTS OF TSSR 

.•DEVICE FATAL DURING INIT 

TRAP CtERDF 
.WORD 1000 
.WORD SFIERR 
.WORD SFINSG 



.•CLEAR FATAL ERROR FLAG 

;SET THE PACKET ADDRESS TO EXECUTE 

:WAIT FOR SSR TO SET 

;aaDFORCE ERROR IF FCRCER^I 
;BR IF CARRY SET (GOOD RETURN) 
.SAVE CONTENTS OF TSSR 

:DEVICE FATAL SSR FAILED TO SET 

TRAP CIERDF 
.WORD 1001 
.yOBD TIQSSR 
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SEQ 174 



043742 
708S 043744 

7089 043750 
043750 

7090 043752 

7091 043756 

7092 043762 

7093 043766 

7094 043770 
7095 

7096 

7097 043774 

7098 043774 

7099 044010 

7100 044012 

7101 044014 

7102 044014 
044014 
044016 
044020 
044022 

7103 044024 
044024 

7104 
7103 

7106 044026 

7107 044026 

7108 044032 

7109 044046 

7110 044050 

7111 044052 

7112 044052 
044052 
044054 
044056 
044060 

7113 
7114 



011520 
004737 

104406 
016501 
012702 
032701 
001402 
052702 



020201 
001404 



104456 
001752 
044364 
011520 

104406 



017720 



000000 
000^00 
OOC 00 

000100 



15$: 



JSR 

CKLOOP 

NOV 
HOV 
BIT 
BEQ 
BIS 



PCFATCNK 



TSSN<R5),R1 
ffSSR,R2 
fOFL.RI 
25S 

fOFL.R2 



.yORD f»ICTSSR 
:INC AND CHECK FOR NORE THAN 25 ERRORS 
;LOOP ON ERROR, IF FUG SET 

TRAP CtCLPI 
;6ET THE CONTENTS OF TSSR 
.•EXPECTED CONTENTS OF TSSR 
:IS OFF-LINE BIT SET ? 
.BRANCH IF NOT OFF-LINE 
:SET OFF-LINE IN EXPECTED DATA 



:If tht NBA bit In tht TSSR rtgltttr It NOT«0 thtn Print Error. 



27$: 



FORCERROR 27$ 
CNP R2.R1 
BEQ 30$ 
NEXT.ERRNO 

ERRHRD ERRN0.T10NBA.PKTSSR 



;DOES EXPECTED NATCH RECEIVED ? 
:OKAV IF HATCH 



30$: CKLOOP 



.'NBA NOT ZERO 



:LOOP ON ERROR ? 



TRAP 
.WORD 
.WORD 
.WORD 



CSERHRD 
1002 
T10NBA 
PKTSSR 



TRAP C$CLP1 



004737 016464 

103405 
010001 



104455 
001753 
003550 
011506 



;Wr1tt to TSSR rtglttvr to toft InltlaUzt tht controUtr 
40$: 

JSR PC.SOFINIT 
FORCERROR 42$ 
BCS 50$ 
NOV R0.R1 
NEXT.ERRNO 
42$: ERRDF ERRNO.SFIERR.SFIHSG 



.-WHITE TO TSSR TO SOFT INITIALIZE 
*88D 

;8R IF SOFT INIT OKAY 
.•SAVE CONTENTS OF TSSR 



;OEVICE FATAL DURING INIT 

TRAP 
.WORD 
.WORD 
.WORD 



CSERDF 
1003 
SFIERR 
SFINS6 



7115 044062 


012704 


000310 


7116 044066 


005002 




7117 0U070 


004737 


017054 


7118 044074 


110465 


177777 


7119 0U100 


116501 


177776 


7120 0ai04 






7121 044114 


120102 




7122 0U116 


001406 




7123 044120 






7124 0U120 






044120 


104455 




0U122 


001754 




0U124 


044325 




0U126 


016220 




7125 044130 


004737 


017720 


7126 044134 






044134 


104406 




7127 044136 







If control Itr RAN 310-377 NOTrC thtn Print Error 



§0$: 
60$: 



62$: 



NOV ff310.R4 
CLR R2 
JSR PC.CHKTSSR 
NOVB R4.TSDBH(RS) 
N0V8 TSBAL<R5).R1 
FORCERROR 62$.N0TSSR 
CNPB R1 ,R2 
BEQ 70$ 
NEXT ERRNO 

ERRDF ERRNO.T10NEN.RANEXP 



70$: 



JSR 

CKLOOP 



PC.FATCHK 



.START WITH LOC 310 
;NENORY EXPECTED SHOULD BE 000000 
;yAIT FOR SSR READY 
; SELECT RAH ADDRESS 
;READ LOC CONTENTS 
;88D 

.•CHECK NENORY FOR 000000 
.•BRANCH IF DATA OKAY 

: NENORY NOT ZERO AFTER INIT. 

TRAP CSEROf 
.WORD 1004 
.WORD T10NEN 
.WORD RANEXP 

:INC AND CHECK FOR NORE THAN 25 ERRORS 



ESCAPE TST 



:EXIT ON FATAL ERROR 



TRAP 

TRAP 



C$CLP1 
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044U0 

7128 

7129 044142 

7130 044144 

7131 044150 
7132 

7133 

7134 0441 52 

7135 044156 

7136 044160 

7137 044164 

7138 044170 

7139 044172 

7140 044176 

7141 044176 
044176 
044200 

7142 
7143 
7144 

7146 044202 

7148 044210 

7149 044210 

7150 044212 

7151 044214 

7152 044216 
7153 

7154 044220 

7155 044220 

7156 044222 

7157 044224 

7158 044226 
7159 

7160 044232 
7161 
7162 
7163 

7164 044252 

7165 044325 
7166 

7167 044364 

7168 044437 
7169 



000434 

005204 
020427 
001351 



005737 
001402 
004737 
004737 
103002 
000137 



104432 
000374 



100004 
044220 
000000 
000010 



044232 
000000 
G00016 
000000 



111 
111 

127 
103 



000377 



002170 

017772 
017174 

043636 



000000 



156 
156 

122 
157 



82S: 



INI 
CNP 



160$: 
165S: 



TST 
BEQ 
JSR 
JSR 
BCC 
JMP 



f(4 

R'. .#377 
69$ 



FATFL5 
160$ 

PC.CKOROP 
PCJSTLOOP 
16^ 
TlOLOOP 



EXIT TST 



: LOCAL STORAGE FOR THIS TEST 



.BLKB 
T10PACKET: 

.UORO 
.WORD 
.UORO 
.WORD 



T10DATA: 



.WORO 
.WORD 
.WORD 
.UORd 



10-<.-TUV2H7> 

100004 
T100ATA 
0 
8. 



TIOBFR 
0 

14. 
0.0 



TIOBFR: .BLKW 8. 

;LOCAL TEXT MESSAGES fOR TEST 



SEO 175 



.WORD L10075* 



;LOOK AT NEXT ftiVt LOC. 

;AT TOP OF RAN ADDRESS SPACE 

;BRANCH TILL ALL HEHORV TESTED 



;ANV FATAL ERRORS ? 
;BRANCH IF NOT 
;TRV TO DROP THE UNIT 
;DONE ALL ITERATIONS? 
;BR If VES 

.-LOOP UNTIL ITERATION COUNT DONE 



TRAP CtEXIT 
.WORD L 10075- 



: COMMAND PACKET FOR TEST 

;URITE CHARACTERISTICS COMMAND. UITH ACX 

;ADDRESS OF CHARACTERISTICS BLOCK 

; STARTING VALUE OF BLOCK SIZE 

.•CHARACTERISTICS DATA BLOCK 
.•ADDRESS OF MESSAGE BUFFER 

:LENGTH OF MESSAGE BU5FER 



••MESSAGE BUFFER 



151 
145 

111 
1i6 



TSnOZO: 
TIOMER: .ASCI2 
.EVEN 
T10NBA: .ASCIZ 
T10SSR: .ASCIZ 



.ASCIZ MMtltUxttlon Afttr URITE CHARACTERISTICS* 
Mncorrtct RAH Data Afttr Inlt* 



*URITE CHARACTERISTICS CoMMnd Not Acc«pttd' 

*ConttntS of TSSR Incorrtct After URI7E CHARACTERISTICS* 
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SEO 176 



7171 
7172 
7175 
7174 
7175 
7176 
7177 
7178 
7179 

7180 044526 

7181 044526 

7182 044532 

7183 044536 

7184 044542 

7185 044546 

7186 044550 

7187 044554 

7188 044560 

7189 044562 

7190 044566 

7191 044570 

7192 044572 

7193 044574 
044574 
044574 



012701 
012721 
012721 
005021 
012721 
012721 
005021 
012721 
005021 
005011 
000207 



104401 



R0U1!N€ 73 REST0*F CONNAND PACKET TO START-UP (DEFAULT) VALUES 



.EVEN 
T10REST: 



044210 
100004 
044220 

000010 
044232 

000016 



SAVRE6 

NOV 

NOV 

NOV 

CLR 

NOV 

NOV 

CLR 

NOV 

CLR 

CLR 

RTS 

ENDTST 



fT10PACKET,R1 

#100004, <R1)« 

fT10DATA.(R1)t 

(R1)« 

f8..(R1)« 

fT10eFR«(R1}« 

(R1)« 

f14.,(R1)4 

(R1)« 

(R1) 

PC 



;SAVE THE REGISTERS 

.-START OF "^HE PACKET 

:URITE CHARACTERISTICS WITH ACK 

.-ADDRESS OF CHAR DATA BLOCK 

.•EXTENDED ADDRESS 

.'SIZE OF DATA BLOCK IN BYTES 

:ADDRESS OF NE5SAGE BUFFER 

: LENGTH OF KcSSMt BUFFER 



.RETURN 



LI 0075: 



TRAP CtETST 
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7195 
7196 
7197 
7198 
7199 
7200 
7201 
7202 
7203 
7204 
7205 

7206 044576 
044S76 

7207 044576 

7208 044602 

7209 044610 

7214 044614 

7215 044620 

7216 044624 

7217 044632 

7218 044632 
044632 
044632 

7219 044634 

7220 044640 

7221 044644 
044644 
044650 

7222 044652 

7223 044652 
044652 

7224 044654 

7225 044660 

7229 044662 

7230 044664 
044664 
044666 
044670 
044672 

7231 044674 

7232 044674 

7233 044700 

7234 044704 

7238 044706 

7239 044710 
044710 
044712 
044714 
044716 

7240 044720 

7241 044720 

7242 044724 

7243 0U730 

7244 0U734 

7245 0U740 

7246 044744 

7247 044750 



005037 
012737 
005037 
012700 
004737 
012737 



104402 
004737 
004737 

012700 
104441 



104404 
004737 
103405 
010001 

104455 
002115 
003550 
011506 

012704 
004737 
103405 
010001 

104456 
002116 
004754 
011506 

005037 
005037 
012704 
010465 
004737 
005737 
001004 



.SBTTL TEST 11: BASIC IMITE SUBSYSTEN NEMORY COMNAND 

♦ 

THIS TEST VERIFIES THAT THE MRITE SUBSYSTEM NEMORV COfWANO tflTH A 
BSELO SELECT CODE OF 0 (NO-OP) EXECUTES CORRECTLY. IT ALSO 
VERIFIES THAT A WRITE SUBSYSTEM NENORY COfMAND VITN A NON-ZERO 
NODE FIELD IS REJECTED. TNE TEST FURTHER VERIFIES NICR0PR06RAN 
COfWAND DECODING AND HANDLING SEQUENCES. 



002170 

005672 002146 
003100 
045660 
017226 

000002 002164 



045726 
045764 



T11L00P: 



B6NTST 

CLR 
NOV 
CLR 
NOV 
JSR 
NOV 

• 

BGNSUB 



000000 



016464 



5S: 



JSR 
JSR 
SETPRI 



6GNSEG 

JSR 
BCS 
NOV 
ERRDF 



045470 
010152 



10$: 



NOV 
JSR 
BCS 
NOV 
ERRNRO 



002170 
002172 
045050 
177776 
017054 
002172 



1U: 



CLR 
CLR 
NOV 
NOV 
JSR 
TST 
BNE 



FATFLG 

f EPRT1 .EPRTSU 
KTFLG 

fTSTIIID.RO 
PC.TSTSETUP 
«2..L00PCNT 



PCTIIREST 

PC.T11RST 

fPRIOO 



Til * * 

.CLEAR FATAL ERROR FLAG 
:SET UP ERROR MESSAGE SWITCH 
;HOLD OFF KT11 

;ASCII HESSAGE TO IDENTIFY TEST 
;D0 INITIAL TEST SETUP 
iPERFPfiN 2 ITERATIONS 

;//////////// BEGIN SUBTEST //////////// 
T11.1: 

TRAP CSBSUB 
:SET PACKET TO INITIAL VALUES 
;SET PACKET TO INITIAL VALUES 
.-LOWER PRIORITY TO ALLOW INTERRUPTS 

NOV ffPRlOO.RO 
TRAP CtSPRI 



PC.SOFINIT 

10$ 

R0.R1 

ERRNO.SFIERR.SFINSG 



fT1lPK2.R4 
PC.WRTCHR 
11$ 
R0.R1 

ERRNO.WRTNSG.SFINSG 



FATFLG 

INTRECV 

f Til PACKET, R4 

R4«TSDB(RS) 

PC.CHKTSSR 

INTRECV 

m 



;»»»»»» BEGIN SEGMENT »»»»»» 

TRAP CSBSEG 

:D0 SOFT INIT OF CONTROLLER 

.-BR IF SOFT INIT » OK 

;SAVE CONTENTS OF TSSR 

;DEVICE FAiAL ERROR DURING INIT 

TRAP CSERDF 
.WORD 1101 
.WORD SFIERR 
.WORD SFIMSG 

.•SUBROUTINE NEEDS PACKET ADDRESS 

.•ISSUE WRITE CHARACTERISTICS 

:BR. IF COMMAND ISSUED OK 

;SAVE CONTENTS OF TSSR 

:WRITE CHARACTERISTISC FAILED 

TRAP C$ERHRD 
.WORD 1102 
.WORD WRTNSG 
.WORD SFIMSG 

: CLEAR FATAL ERROR FLAG 

.•CLEAR INTERRUPT RECEIVED FLAG 

.-SET UP NEW WRT. SUBSYS NEN. COMMAND 

;SET THE PACKET ADDRESS 

.WAIT FOR SSR TO SET 

.DID AN INTERRUPT OCCUR ? 

;MAHCH If m 
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7251 044752 
044752 
044754 
044756 
044760 

7252 044762 
7255 044766 

7254 044772 

7255 044776 

7256 045000 

7257 045004 

7258 045006 

7262 045010 
045010 
045012 
045014 
04S016 

7263 045020 

7264 045020 
045020 
045020 

7265 
7266 

7267 045022 
045022 
045022 

7268 

7269 045024 

7270 045030 

7271 045032 

7272 04S0S6 

7273 045036 
045036 
045040 

7274 
7275 
7276 
7277 
7278 

7280 045042 

7282 045050 

7283 045050 

7284 045052 

7285 045054 

7286 045056 

7287 045060 

7288 045060 

7289 045061 

7290 045062 

7291 045064 

7292 045066 
7293 

7294 

7296 045466 

7298 045470 

7299 045470 

7300 045472 



104456 
002117 
045566 
011520 
016501 
012702 
032701 
001402 
052702 
020201 
001404 

104456 
002120 
045512 
011520 



104405 



104403 

005737 
001402 
004737 



104432 
000776 



100206 
045060 
000000 
000006 

000 
000 
000000 
000000 



100204 
045500 



ERRHRD ERRN0,T11N1NT,PKTSSR 



000000 
000200 
000100 

000100 



22$: 



25S: 



HOV 
MOV 
BIT 
BEG 
BIS 
C«P 
BEO 
ERRHRD 



TSSR(R5).R1 
«SSR,R2 
fOPL.RI 
25$ 

«0FL.R2 

R2.R1 

30S 

ERRN0.T11NBA»PKTSSR 



30ft: 



ENDSEG 



S9ft: ENDSUB 



002170 
017772 



60ft: 



TST 
BEO 
JSR 



FATFL6 
60ft 

PC.CKOROP 



EXIT TST 



.•LOCAL STORAGE FOR TNIS TEST 



.BLKB 
T11PACKET: 

.UORD 
.WORD 
.UORD 
.WORD 

Til DATA: 
T11BS0: .BYTE 
T116S1: .BYTE 
T11BS2: .WORD 
.WORD 
T11BFR: .BLKW 



10-<.-TW2H7> 

100206 
T11DATA 
0 
6. 

0 
0 
0 
0 

128. 



T11PK2: 



.BLKB 10-<,-TUW2At7> 



.WORD 
.WORD 



100204 
T11DTA 



SEQ 



TRAP CtERHRD 
.WORD 1103 
.WORD T11H1NT 
.WORD PKTSSR 

;6ET THE CONTENTS OF TSSR 

; EXPECTED CONTENTS OF TSSR 

.IS OFF-LINE BIT SET ? 

:BRANCH IF NOT OFF-LINE 

:SET OFF-LINE IN EXPECTED DATA 

;D0ES EXPECTED NATCH RECEIVED ? 

:0KAY IF HATCH 

:NBA NOT ZERO 

TRAP CftERHRD 
.WORD 1104 
.WORD T11N6A 
.WORD PKTSSR 

;««««<v«< END SEGMENT ««««««< 
10000ft: 

TRAP CftESEG 



;\\\\N\V\\\\v\ END SUBTEST \\\\\\\\\S\\\ 
L10077: 

TRAP CftESUB 

;ANY FATAL ERRORS ? 

.•BRANCH IF NOT 

;TRY TO DROP THE UNIT 

;ALL DONE THIS TEST 

TRAP CftEXIT 
.WORD L10076-. 

1 



.•COMMAND PACKET FOR TEST 

:WRITE SUBSYSTEM MEM. COMMAND. WITH IE. ACK 

.•ADDRESS OF CHARACTERISTICS BLOCK 

.'STARTING VALUE OF BLOCK SIZE 

.•CHARACTERISTICS DATA BLOCK 

.BSELO BYTE 

:BSEL1 BYTE 

.•BSEL1 WORD 

.DATA 

; MESSAGE BUFFER 



; COMMAND PACKET FOR TEST 

iWRITE CHARA. MEM. CMND.. WITH IE. ACK 

.APMPSS flf SPtPfT PATABinCK 
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TEST 11: BASIC WRITE SUBSYSTEH HENORY CONHAND 
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SEO 179 



7301 

7302 

7303 

7304 

7305 

7306 

7307 

7308 

7309 

7310 

7311 

7312 

7313 

7314 

7315 

7316 

7317 

7318 

7319 

7320 



045474 000000 
045476 000010 



045500 

045500 045066 

045502 000000 

045504 000400 

045506 000000 000000 



T11DTA: 



.UORD 
.WORD 



.UORP 
.WORD 
.WORD 
.WORD 



0 
8. 



TIIBFR 

0 

256. 
0,0 



; STARTING VAIJE OF BLOCK SIZE 



; SELECT DATA BLOCK 
.'ADDRESS OF KSSAGE BUFFER 

.LENGTH OF ifESSAGE BUFFER 



LOCAL TEXT MESSAGES FOR TEST 



045512 127 122 
045566 105 170 
045660 102 141 



111 T11NBA: .ASCIZ 
160 T11NINT: 
163 TST11ID: 

.EVEN 



'URITE SUBSYSTEM MEMORY COMtand Not Acctpttd' 

.ASCIZ *Exp«cttd Inttrrupt Not Rtctivtd On WRITE SUBSYSTEM MEMORY' 
.ASCIZ 'Bask WRITE SUBSYSTEM MEMORY CoMtand* 



CZTuyAO TuaO front end PRT a macro mZOO 29-HAR-83 15:24 
TEST 11: BASIC WRITE SUBSYSTEN HEMORY COHMANO 
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SEQ iBO 



7322 
7323 
7324 
7325 
7326 
7327 
7328 
7329 

7330 045726 

7331 045726 
7532 045732 

7333 045736 

7334 045742 

7335 045746 

7336 045750 

7337 045754 

7338 045756 

7339 045760 

7340 045762 
7341 

7342 

7343 045764 

7344 045764 

7345 045770 

7346 045774 

7347 046000 

7348 046004 

7349 046006 

7350 046012 

7351 046016 

7352 046020 
7355 046024 
7554 046026 
7355 046050 

7556 046054 

7557 046056 
046056 
046056 



012701 
012721 
012721 
005021 
012721 
005021 
005021 
005011 
000207 



012701 
012721 
012721 
005021 
012721 
012721 
005021 
012721 
005021 
005011 
005057 
000207 



104401 



045050 
100206 
045060 

000006 



045470 
100204 
045500 

000010 
045066 

000400 
045066 



ROUTINE 70 RESTO*^ COfMAND PACKET TO START-UP (DEFAULT) VALUES 
WRITE SUBSYSTEN HEnORV COfWAND 



Til REST: 



SAVRE6 

NOV 

NOV 

NOV 

CLR 

NOV 

CLR 

CLR 

CLR 

UTS 



TimST: 



SAVRE6 

NOV 

NOV 

NOV 

CLR 

NOV 

NOV 

CLR 

NOV 

CLR 

CLR 

CLR 

RTS 

ENDTST 



illlPACKET.RI 

#100206, (R1)« 

fT110ATA,(R1)« 

(R1)« 

f6.,(R1)» 

(R1}« 

(R1)« 

(R1) 

PC 



fT11PK2.R1 

i100204.(R1)* 

fT110TA,(R1)» 

(R1)« 

i8.,(Rl)« 

iT11BFR.(R1)» 

(R1)« 

f256..(R1)* 

(R1)« 

(R1) 

T11BFR 

PC 



:SAVE THE REGISTERS 

.•START OF THE PACKET 

;WRITE SUBSYSTEM HEN. WITH ACK. IE 

.'ADDRESS OF DATA BLOCK 

.•EXTENDED ADDRESS 

.•SIZE OF DATA BLOCK IN BYTES 

; CLEAR BSELO AND BSELl 

; CLEAR SEL2 

.'CLEAR DATA AREA 

; RETURN 



.-SAVE THE REGISTERS 

; START OF THE PACKET 

.'WRITE CHARA. WITH ACK. IE 

.•ADDRESS OF CHARAISTICS DATA BLOCK 

: EXTENDED ADDRESS 

;SIZE OF DATA BLOCK IN BYTES 

:NESSAGE BUFFER ADDRESS 

.•LENGTH OF NESSAGE BUFFER 



.'CLEAR 1ST LOC IN NESSAGE BUFFER 
; RE TURN 



LI 0076: 



TRAP CSETST 



n u 



CZTUVAO TUftO FRONT END PRT A 
DISPLAY BREAKPOINT SETTINGS 



8432 
8437 
8443 
8444 
8445 
8446 
8447 
8448 
8449 
8450 
8451 
8452 
8453 
8454 
8455 

8456 052636 
052636 
052640 

8457 

8458 052640 
052640 
052642 
052644 
052646 

8459 052650 
052650 
052652 
052654 
052656 

8460 052660 
052660 
052662 
052664 
052666 
052670 

8461 052672 
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000015 



000031 
052672 
160000 
177776 

001031 
052721 
000000 
000776 

002032 
052745 
000340 
000000 
000007 



.SBTTL HARDWARE PARAMETER CODING SECTION 

THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
MACROS ARc NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 



LSHARD:: 



BGNHRD 

.WORD Ll0100-L$HAR0/2 



052672 

8462 052672 

8463 052721 

8464 052745 
8465 

8466 



104 105 
111 116 
111 116 



L10100: 
126 HPF1: 
124 HPM2: 
124 HPH3: 



GPRNA 

.WORD 

.WORD 

.WORD 

.WORD 

GPRNA 

.WORD 

.WORD 

.WORD 

.WORD 

GPRMD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

ENDHRD 

.EVEN 

.ASCIZ 
.ASCIZ 
.ASCIZ 
.EVEN 



HPM1 ,0,0 J60000 J77776.YES 

TtCODE 

HPM1 

TSLOLIM 

TSHILIM 

HPM2,2,O.0.776,YES 

TSCODE 

HPH2 

TSLOLIM 

TtHlLIM 

HPM3.4,0,340,0.7,YES 

TUODE 

HPMS 

340 

TtLOLIM 
TIHILIM 



*DEVICE ADDRESS (TSSR) * 
'INTERRUPT VECTOR * 
'INTERRUPT PRIORITY 



;6ET TSBA/TSDB REGISTER ADDRESS. 



;GET VECTOR ADDRESS. 



;GET INTERRUPT PRIORITY. 



V 



CZT>jUAO TU80 FRONT END PRT A MACRO M1200 
SOFTWARE PARAMETER CODING SECTION 



8A68 
8A69 
8470 
8471 
8472 
8473 
8474 
847S 
8476 
8477 

8478 0S2776 
052776 
053000 

8479 053000 
053000 
053002 
053004 

8480 053006 
053006 
053010 
053012 

8481 
8482 

8483 053014 
053014 



000006 



000130 
053014 
177777 

001130 
053053 
177777 



8499 



053164 
053166 
053166 
053170 
053172 
053174 
053176 
053200 
053202 
053204 
053206 
053210 
053212 



000013 

023464 
023722 
024674 
026154 
030206 
031416 
033472 
036704 
040422 
043602 
044576 



N 14 
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.SaiTL SOFTWARE PARANETER CODING SECTION 



SEQ 182 



THE SOFTWARE PA!>AHETER CODING SECTION CONTAINS MACROS 
THAT ARE USED BY iriE SUPERVISOR TO BUILD P-TA8LES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 



LSSOFT:: 



B6NSFT 

.WORD L10101-LSSOFT/2 



8484 






8485 






8486 053014 


105 


116 


8487 053053 


111 


116 


8488 053103 


120 


105 


8489 053133 


120 


105 


8490 






8491 






8492 






8493 






8494 






8495 






8496 






8497 






8498 053164 







LI 01 01 : 



101 SPHI: 

110 SPM4: 

122 SPM6: 

122 SPH7: 



GPRML 

.WORD 

.WORD 

.WORD 

6PRML 

.WORD 

.WORD 

.WORD 

6PRMD 

GPRMD 

ENDSFT 

.EVEN 



.ASCIZ 

.ASCII 

.ASCIZ 

.ASCIZ 

.EVEN 

.SBTTL 



SPM1, 0.-1, YES 

TSCODE 

SPM1 

-1 

SPM4. 2.-1. YES 

TSCODE 

SPM4 

-1 

SPM6.4,D.7777.0,7777,y£S 
SPM7.6.D.7777.0.7777.VES 



;6ET RAM DUMP TEST FLAG 



: GET ITERATION CONTROL < 



; GET LOCAL ERROR LIMIT 
; GET GLOBAL ERROR LIMIT 



'ENABLE H7454 RAM DUMP ON ERROR* 
'INHIBIT ITERATIONS 
'PER TEST ERROR LIMIT ' 
'PER UNIT ERROR LIMIT ' 

PATCH AREA 



DISPATCH TABLE 

MOVE TO FRONT OF PROGRAM FOR RELEASE 



DISPATCH TESTNO 

.WORD 11 
LSDISPATCH:: 

.WORD T1 

.WORD T2 

.WORD T3 

.WORD T4 

.WORD T5 

.WORD T6 

.WORD T7 

.WORD T8 

.WORD T9 

.WORD T10 

.WORD Til 



CZTUUAO TUftO FRONT END PRT A 
PATCH AREA 

8S02 
8503 
8S04 
8505 
8506 

8507 0532U 
8508 
8S09 
8510 

8511 0532U 



0S32U 
053216 
053220 

8512 
8513 
85U 
8515 

8516 053220 

8517 053220 
053220 
053222 
053224 

8518 053224 

8519 053226 

8520 053230 

8521 053232 
053232 

8522 053232 
8523 

8524 



053232 
000005 



000000 
000003 

172522 
000224 
000240 



000001 
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AND AN ADJUSTMENT TO ACCOUNT fOR THE "LASTAD BIT7" HACK 
DESCRIBED IN "SUPPR6.NEN" (FOR REV C). 



SEQ 183 



PATCH: : 



LtLAST:: 



.IF NZ..t377 

.=.!377*1 
.ENDC 

LASTAD :SET LAST USED ADDRESS. 

.EVEN 

.WORD TSFREE 
.WORD TtSIZE 

.SBTTL HARD CODED P-TABLE 

DIAGNOSTIC IS PRE-PARAHETERIZED PER THIS TABLE 
1 



L10102: 



L10104: 



B6NSETUP 
BGNPTAB 
.WORD 0 

.WORD L10104-./2-1 



.WORD 
.WORD 
.WORD 
ENDPTA8 

ENDSETUP 

.END 



172522 

224 

PRI05 



CZTUWAO 1U80 FRONT END PRT A 
SYPieOL TABLE 



ADDSSR 011612 G CSAU » 

AOR s 000020 6 CtAUTO* 

AHBTSS 0061 51 CSdRK * 

ASSENB» 000010 CS8SE6« 

A1716 « 000003 ctasue* 

BAOOAT 003110 C CICEF6* 

RAOSSR 016370 6 CSCLCK« 

BAR s 174402 CSCLEA* 

BENBSU 002174 6 CSCLOS* 

BIE « 040000 CSCLP1« 

BITO « 000001 6 CSCVEC* 

BtTOO * 000001 6 CSDCLN* 

BIT01 > 000002 6 C$D0DU« 

B1T02 « 000004 6 CSORPT* 

BIT03 « 000010 6 CIDU * 

BIT04 * 0C0020 6 CSEOIT* 

BIT05 « 000040 6 CSERDF* 

61 '06 « 000100 6 CSERHR« 

BIT07 * 000200 6 CSERRO* 

BIT08 « 000400 6 CSERSF* 

eiT09 « 001000 6 CtERSO* 

BIT1 « 000002 6 CSESCA* 

BIT10 « 002000 6 CSESE6* 

B1T11 ■ 004000 6 CSESUB« 

BIT12 * 010000 6 CSETST* 

61T13 * 020000 6 CSEXIT* 

BIT14 * 040000 6 CSGETBb 

aiT15 ■ 100000 6 CSGETU> 

B1T2 « 000004 G CSGHAN* 

BIT3 « 000010 6 CSGPHR* 

BIT4 * 000020 G CSGPLO* 

BITS s 000040 G C$GPRI« 

Bn6 « 000100 G CtlNITs 

BIT7 « 000200 G CSINLP> 

B1T8 « 000400 6 CSMAN]« 

BIT9 « 001000 G CSMEN * 

BOE * 000400 G CSMSG « 

BRINIT 004355 Ct0PEN« 

BScLO * 000000 CSPNTB' 

BSEL1 « 000001 CSPNTF* 

CHXAHB 016534 C$PNTS« 

CHKNAN 021222 G CtPNTX« 

CHKTSS 017054 CSQIO * 

CKOROP 017772 C$R06U« 

CKENAX 017620 CSREFG« 

CKNSG 011032 6 CSRESE* 

CKflS62 011152 6 C$REVI« 

CKRAN 010354 G C$RFLA« 

CKRAK2 010730 G CSRPT * 

CNPfCN 020376 CSSEF6* 

CONFIG 020040 CSSPRI* 

COUNT 002254 G CtSVEC* 

CSR « 174400 C$Tr»Rl« 

CSRADO 002154 G DAR « 

CTAB 003116 G DATA 

CTABE 003130 G OATAFL 
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00005^ 


DEBUGN 


011304 


000061 


DEVCNT 


002166 G 


000022 


DEVDRO 


023414 


000004 


DEVNRD 


0'>3S33 


000002 


DEVNXR 


023^31 


00004 S 


DEVONL 


023201 


000062 


DEVSUM 


023144 


000012 


OFPTBL 


002124 G 


000035 


DIAGMC* 


000000 


000006 


DICEA s 


000001 


000036 


DLCVL « 


0001 77 


000044 


DLONER* 


100200 


000051 


DLERR * 


177730 


000024 


DL6ETS* 


000004 


000053 


DLRDHO* 


000010 


000003 


DLRDNH* 


000016 


000055 


DLSR * 


000013 


000056 


DLUN « 


000006 


000060 


DSBINT 


016674 


000054 


DUA012 


004541 


000057 


OUFLG 


003060 G 


000010 


OUfWY 


003030 


000005 


EF.CON* 000036 G 


000003 


EF .NEW« 


000035 G 


000001 


EF.PUR* 000034 G 


000032 


EF.RES- 


000037 6 


000026 


EF.STA* 


000040 G 


000027 


EMAXOU 


017515 


000043 


EN « 


000000 


000042 


ENAINT 


016642 


000030 


ENVIRN 


021352 


000040 


EPRTSU 


002146 G 


000011 


EPRT1 


005672 


000020 


EPRT2 


005672 


000050 


EPRT3 


005672 


000031 


ERCN 


011405 


000023 


ERRNI 


002202 6 


000034 


ERRK 


017474 


000014 


ERRLO 


002204 6 


000017 


ERRNO « 


002120 


000016 


ERRVEC* 


000004 G 


000015 


ERTA8E 


003330 


000377 


ERTABL 


003130 


000007 


ESUN 


017476 


000047 


EVL c 


000004 G 


000033 


EXBCNTs 


000010 


000003 


EXP8RE 


016172 G 


000021 


EXPD 


002176 6 


00002S 


EXPGOT 


004431 


000046 


EXPGT2 


004465 


000041 


EXPflSG 


002266 8 


000037 


EXPREC 


016164 G 


000013 


EXTA 


005232 


174404 


EXTEND 


005230 


002256 G 


ESEND « 


002100 


014703 


EtLOAD* 


000035 


MMKL 


rATfMr 


017770 



C 15 
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SEQ 184 



FATFRRs 


000060 




wU l*Ww 




00?170 fi 


UIHFM s 


0A777A 

WVr f to 




011374 


UOF > 
nuE 


lOAAOn li 




v 1 1 w^C U 


UPM1 

firn 1 




FIF1NS 


0117H 

W 1 If 1 ^ 


nr nc 


0^7791 

C 1 


F I F 2NS 


01 1 763 






FILLHF 


020212 

VbVK 1 » 




010000 c 

V 1 WW V 


FNOINT 


004113 

wW^ t t w 


IDU M 


0000^0 C 


FORCER 


002144 6 


ten 


o?oooo e 


FREE 


003072 G 


IFAULT 


0041 14 

WW^ 1 


FREEHl 


003076 


8*«^ bffl^ 


01756? 


FRESIZ 


003074 G 

Www' ~ w 


INTCPC 


016640 


FUSI 


004015 


INTFLA 


016635 

V 1 WW WW 


FSAU s 


000015 


INTNAS 


016654 


FSAUTO* 


000020 

WW wwfc w 


INTR 


016706 G 

w 1 W • WW W 


FSB6N 3 


000040 

w www^ w 


INTREC 


002172 G 

w wb ■ • w 


FSCLEAs 


000007 


INTVEC 


016636 

W 1 WwWW 


FSDU * 

f WW 


000016 


INTX 


004176 

ww~ 1 • w 


FSENO * 


000041 




C00200 

W wW» WW 


F SHARD* 


000004 


lOKSTPs 


000001 

WwwWw ■ 


FSHU « 


000013 


IPRI 


002160 G 

WWb • WW w 


FSlNlTs 


000006 

W WW W V 


ISR X 


000100 G 

www • WW w 


FSJMP « 


000050 


IVEC 


002156 G 

WWb ■ ^ w w 


FtlWD s 


000000 


IXE - 


004000 G 


FSMSG s 


000011 


ISAU * 


000041 


FSPROTs 


000021 


ISAUTO* 

A Wf IW • w 


000041 

Www w^ • 


FtPUR * 


00U017 


liCLN s 


000041 


FSRPT « 


000012 


A WWW 


000041 

WWWW^ 1 


FSSEG « 


000003 


ISHRD * 


000041 

wvww~ • 


FSSOFJs 


000005 


ISINITs 


000041 


FSSRV « 


000010 


ISHOD s 

m iww 


000040 

WWWW^ w 


Ftsue s 


000002 


I MSG X 

• iwW 


000041 


FSSU M 


000014 


ISPROT« 


000040 

w w w w^ w 


FSTEST* 


000001 

wwwww ■ 


ISPTAB* 

4 wt I nv 


000041 


6DDAT 


003112 G 


ISPUR B 


000041 


GERRNA 


002142 G 

WWb '^fc w 


ISRPT * 

m wn* ■ 


000041 

WWWw^ ■ 


GETPAT 


020716 G 

wbwff 'W V 


ISSE6 X 


000041 

wwww~ • 


GETSEL 

W* ■ WbW 


021000 G 

wb 1 www W 


ISSETUs 

m w^b • W 


000041 

www W ~ ' 


6$CNT0> 


000200 


ISSFT * 


000041 


GSDELN* 


000372 

WWWW • 


ISSRV 3 


000041 


GSDISP* 

\# WW m WW 


000003 

WW w ww^ 


ISSUB s 

4 wwWW 


000041 


6S£XCP« 


000400 

W W W^ WW 


I$TST s 


000041 


GSHlLls 


000002 

Wwwwwfc 


JSJHP s 

W WV« w 


000167 

www 1 w> 


GSLOLI* 


000001 

wwwww ■ 


KIPARO* 


172340 


GSNO » 

w WtW 


000000 

Wwwww 


K I PARI 3 


172342 


GtOFFSs 

Www' ■ w 


000400 

www" WW 


KIPAR2* 


172344 


GtOFSIs 

www" w» 


000376 

WWWrf* W 


KIPAR33 


172346 


GSPRNAs 


000001 

Www wV ■ 


KIPAR4s 


172350 




vvwwc 


Mr«l% J** 


172352 


6$PRNL« 


000000 


KIPAR6< 


172354 


GSRAOA* 


000140 


KlPAR7>c 


172356 


GSRAOB" 


000000 


KIPDRO* 


172300 


GSRAOD* 


000040 


KIP0R1* 


172302 


6tRADL> 


000120 


KIP0R2* 


172304 


GSRADO* 


oooo2r 


KIPDR3" 


172306 


GtXFER« 


00000'. 


K1P0R4S 


172310 


GfVES s 


00001 u 


lOPDRSs 





CZTUWAO TU80 FRONT END PUT A 
SYMBOL TABLE 



D IS 
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SEO 18S 



K1P0R6> 

K1P0R7S 

KTENA8 

KTFLG 

KTINIT 

KTOFF 

KTON 

LERRfU 

LERRNO* 

LISTAL* 

LOt « 

LOOPCN 

LGOPCO 

LOOPFL 

LOT « 

LiACP 

LUPT 

LSAU 

LtAUT 

LtAUTO 

LSCCP 

LSCLEA 

LKO 

LtOEPO 

LtOESC 

LSOESP 

LSOEVP 

LtOISP 

LtOLV 

L$OTP 

LSOTYP 

LSOU 

LtOUT 

LSOVTY 

LKF 

LSENVI 

L»£TP 

LSCXP1 

LtEXP4 

LSCXPS 

LtMARO 

LIMINE 

LtNPCP 

L$MPTP 

LSNU 

L$ICP 

LSINII 

LSLAOP 

LILAST 

LtLOAO 

LSLUN 

LMRfV 

LSMIO 
LtPROT 
LSPRT 



1723U 
172316 
003102 
003100 
02U40 
020064 
020046 
002140 
000000 
000001 
040000 
002164 
012600 
003114 
000010 
002110 
002036 



022400 G 



002070 
022604 
002106 



022660 G 



002032 
002011 
003342 
002076 G 
002060 G 
0S3166 G 
002116 G 
002040 G 
002034 G 
022476 
002072 
003334 
002052 
002044 
002102 
002046 
002064 
002066 
052640 
002120 G 
002016 G 
002022 6 
002124 6 
002104 6 
021602 G 
002026 6 
0S3220 G 
002100 G 
002074 6 
0020S0 G 
002000 G 
002042 G 
021 S72 6 
002112 G 



G 
G 
G 



G 
G 
G 
G 
G 
G 
G 
6 
G 
6 



1 ucu 


UUcUlU V 


i 1AnC7 
L 1UU9' 


AY91 11. 
0>c1l4 


NUkLR 


AAi.Z9A 

0U4426 


O.GcT 


ACl &VA 

091630 


1 CPDT 


n997A2 n 


LIUUOV 


AV9iA9 
'JAc^Vc 




AAXAAA 
004000 


O.wO 


047000 


1 C<nCT 


nCXAAA It 


L1VU01 




NXR 


AAtAIA 

OOMJO 


0.601 


047736 


1 ccor 
Lvarl 




LIUUOc 


nx/.i 1 A 


NXRCnn 


00>1rO « 


0.60Z 


04774Z 


1 «DrQ 


WCVCV 9 


L lUUOi 


AT^sA9 
UMi>VC 


NXnX 


0030 f 3 


A ftiff £U 


AC9CAA 
072940 


L9»r 1 r 




L1UU04 




Utf Til 

MXIU 


0CC044 


A 1 ^ w 

O.Lw * 


AAAA1 A 
000010 




nA9nin n 


L 1 UVO> 


A1SA9A 


ACl * 
Or L ■ 


AAA1 A A 
0001 00 


A 1 ^Cli 

O.LwLN 


092133 




AA91X4 It 


1 1AA44 


AAA^9A 
v4W4cW 


ONcr IL* 


AAAAAA 
UVOOOU 


A 1 ClkB 

D.LvPn 


04O93O 




It 


1 1AA47 
k IWOr 


V^r lOO 


nft4BTC> 
H»Arl»" 


AAAAAA 
UvwUvU 


A i Ali 


AS9StA 
09c9M 




nA9A14 It 
wcv 14 U 


1 inA7A 
L lUVrV 


A17194 
W3r4c4 


U»AU ■ 


AAAAA1 
V0W001 


A HAue 
D.PWVC 


090242 




0A9019 It 


1 lAA^I 


A414AA 


Af fmi» 


AAAAA1 
000001 


A MCV 

O.nsR 


0929M 


L 1 WW 


0091 12 


1 10079 
k 1 Wr C 


041012 
U4 1 VI C 


AttfiMSa 


AAAAA1 


A nnT 


A^AA^A C 
U40U4U u 


LlOOOl 

k 1 WV 1 


002144 

wc 1 44 


1 10071 

k 1 W' 3 


041112 

V4 U 1 C 


AftbU ■ 
UWU " 


000001 
www 1 


A AfST 


A471AA 
W4r JQW 


1 1000? 

L 1 WVC 


00S22A 

W JCCw 


1 10074 

k 1 Wr 4 


041490 

V4 lOCV 




AAAAAA 

VVVWVW 


A Ai n 

O.UkW 


U40r 30 


L 1 WVW 


011S16 


1 1007S 

k 1 Wr 7 


044^74 

V4*l? r^ 




000001 

VWW 1 


A API 
U.Ur 1 


V40rOc 


L10004 
w 1 vw^ 


01 1 


1 10074 

k 1 Wr O 


044014 


AtPAtMa 


000001 
www 1 


A AP9 
U.UrC 


A47A94 


k 1 WV# 


011^64 


1 10077 

k 1 Wr r 


04^099 

V47VCC 


ASSPTUa 

U*«E 1 U* 


000001 

WWWWW i 


A AP94 


047014 
W4r v34 




01 1 S72 


1 10100 

k 1 V 1 W 


0^2472 

V^COr C 


A ABB1 

U 4 nVn 1 


0121^0 

W^C^'W 


A AB4A 


A4A9A4 
W40CII0 


1 1AM7 


011&10 

VI 1 vl V 


1 10101 

k IV IV 1 


0S1014 

V7^V 1 4 


A Ai 1 


011114 

V7 i 1 ^4 


A MPr 

W.Unrk 


A4A944 
W40C44 


1 10010 


nil AM 

V 1 1 VCV 


1 10102 

k 1 V I vc 


011224 

V7^CC4 


A AS 


044410 

W4<KI^W 


A ABBA 


044974 
W40c»0 


L10011 

k 1 WW 1 1 


oil MO 

V 1 1 w^V 


1 10104 

k 1 V 1 v^ 


051232 

V^ JC^C 


A ASf 
U*Aak 


012117 

W7C Mr 


A P 

U.~ 


019111 

W7C \ \3 


L 1 WW 1 C 


01 1 71 2 

VI i r 1 C 


1 Ikl WW 


011424 fi 

VIJ4CW W 


A ASCI 


010144 

W^V 14^ 


A PCS 

War k> 


044914 

W40C20 


LlOOll 

k 1 WW 1 w 


0120A2 

V 1 CWC 


NiNASt 


021 1 71 

vc 1 1 r 1 


A AAfK 


047114 

V4r 1 1^ 


A PBMT 

U . "AH 1 


010409 

W7W4WC 


L10014 


012S76 


ncivCnn 


021114 

vc 1 1 1 V 


A MALI 


011020 

V? 1 VCV 


A PBAC 


047740 

W4r r OW 


L1001S 


013424 


nciwiw# 


021220 


0 BO 


0121 20 

V^C 1 CV 


0 PROH 


012194 
V7C 1 so 


L10016 


013446 

V 1 


NESAFA 

nCwor M 


002714 fi 

wc r 1 V V 


0 MCP s 


000014 

WW 1 w 


A BAI 1 

W . AAkk 


047104 

V^r JV4 


Li 001 7 

k i WW 1 ■ 


016170 

V 1 V 1 • W 




0144S1 


0 nrPT 


047142 

W^r I^C 


A RCSBx 


177140 

1 r r 7W 


Li 0020 


01&l76 




014414 

V 1 ^V«#w 


0 SRK 


010410 
v^w^^w 


A BAB s 
V.nVD ^ 


177142 

1 r r 7vC 


L10021 


016204 

V 1 vcv^ 


HflWC V 


0002S0 
vwc^v 


0 Ml 


012100 

v^C 1 W 


0 REfi 

U.lfCV 


01201? 


Li 002? 

k 1 wcc 


01 421 A 

V 1 wC 1 w 




174404 


0 BVT 

V*DI 1 


044444 


A BF&T 
v.nCwl 


044114 

V40 1 711 


Li 0023 

1. 1 WCv 


01A240 

V 1 vC4V 


MSA fRs 


000004 
www 


0 BVT1 

W«Ol 1 1 


044440 


A BI^M 


011104 

V7 1 JV4 


Li 0024 

k * WC~ 


0142M 

V 1 vCvw 


HSA NOb 

n*w«nv" 


000000 
www 


A f AB 


012102 
vjc 1 vc 


A Bsn 


011240 

V7 1 C4V 


k • WC7 


016424 

V 1 w4Cv 


USA NR« 


000004 
vww^ 


A CABW 


011444 

V^ 1 4^0 


A BSB 

W. ASA 


011210 

V7 IC IW 


1 1002& 

k 1 WCw 


014714 

VI Or Jv 


MSA tfO« 


000002 
vwwc 


A f 1 fiTs 

U* Vkw 1 • 


000011 
www 9 


A BSTT 

W.nSI 1 


011400 

V7 I4W 


1 lAAvn 

k tWJV 


099110 




011410 6 

VI lO^V o 


A ri SF 


011744 

W3 1 r 


A S 


019111 

V9C III 


1 100^1 

k ■ W^ 1 


099474 

WCC4f 4 




012114 fi 


0 fAHP 


010104 

W?WJW4 


A SCAM 


04442? 

W404CC 


1 10012 

k 1 WJC 


099409 

VCCOwC 




012022 fi 
V 1 cvcc u 


A tB 

W*kn 


012121 

W7C ICJ 


A SFMI 

u.«cni 


044499 

W4WCC 


1 10011 

k 1 


0994^4 




011414 fi 

V 1 ^4 1 "1 U 


A CBFT 

W«kllC 1 


044710 
W4l»r ^W 


A SFd 
U««C*i 


012114 

W7C 1 IV 


1 IfiAlA 


099700 


MS ATTm 


0O00A4 
WvvVO 


A FBI 9 


011774 

V7 1 r r O 


A SMfil 


044144 

W4WJ4W 


k IWiJ 


091149 

VC^ 1 4c 


MS FVTm 


000200 
vwvcw 


A FBI S 


012019 
W9CV IC 


A SPAC 
W . *rAk 


011712 

W J 1 r 3C 


k 1 WJO 


091790 

MCSt Cw 


MS RSftx 


000001 

VVwWI 


A rsBi 


012114 

V^C 11^ 


A CTM 8 

V. 9 in ~ 


000140 

WW J^V 


k ■WJf 


091^44 


MS BSPx 


000020 

VWVCV 


0 fSR2 


0121 1 1 

V7C 117 


A SVR 

W.«wA 


011110 

Vi# 1 1 7V 


1 100&0 
k 1 w^v 


0914^0 


MS BSTa 


000010 

WW IV 


0 FT 


012172 

V^C^r C 


0 SVTT 

W. WW 1 1 


011312 


1 100A1 


094479 

VC4il r C 


MRA c 


002000 
wcvw 


0 CI 


010012 

V7WJC 


A SUCH 




L100A2 


094112 

VC4 lie 


NFUPAS 


022012 

VCCVJC 


0 bCB 


044174 


0 T 

W. 1 


012112 

V#ft lift 


i 10AA1 


094104 


MAA^V 
WUIrCw 


001042 G 


A bfAA 


044714 

W40r 7^ 


0 TBIT 

W* 101 1 


047710 

V^« » IV 


i 1flA&4 
k iww** 


094 S04 

VC4 


MAIHIT 


004211 

W4C 


A BCBA 

W*WkV0 


047102 

V4r JVC 


0 TBT s 


000020 

VWVCV 


L1004S 


026152 


NOINTR 


004:i7 


O.0CD1 


046416 


O.TCLS 


046320 


L10046 


025234 


NOITS 


002136 G 


O.DC02 


046412 


O.TCSR* 


177564 


L10047 


025554 


NOMN 


021256 


O.OOT 


052104 


O.TDB * 


177566 


L100S0 


030204 


NP.IR * 


000200 


O.DUMP 


050064 


O.TL 


052170 


L100S1 


026476 


NP.LOO* 


000040 


O.EFF 


047470 


O.TRTC 


052200 


L10O52 


026762 


NP.OUT* 


000100 


O.ERR 


046366 


O.TVECs 


000014 


L10053 


027210 


NP.WRP* 


000020 


0.ERR1 


047464 


O.TtPE 


051716 


L100S4 


031414 


NSI 


004050 


O.FCHR 


052544 


O.UIN 


052614 


L100S5 


033470 

A** A 


NSINIT 


004305 

AA1.Z9C 


O.FCNT 
A crvD 


052546 

AC1S49 


O.UPC 

A liPS 


052530 

AS9119 



E IS 
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cvmni 


TABI C 


















U • WW 




PMICft9 


W 1 93<7 






$1 .lEO* 


A1 AAAA 
010000 


TST^OI 


044252 


n iKP 








RCCV 


WiiWi u 


Si.Irn* 


AA1 AAA 
001000 


TSTilI 


04>660 




w*lDDl *l 


PBiAcr 




RCbSAV 




SI .IHE* 


AAAi,AA 
000400 


TST2ID 


024666 




V7C 1 1 W 


r 3 1 3CW 


ft 






Si .IIP* 


AAi,AAA 
004000 


TC TV f 

TST3IP 


0261 33 










tint NBC* 


AAA laLV 


SI . I In* 


A9AAAA 
OeOOOO 


TCT/ ff K 

TST41D 


ATA4 

030107 


Q.yROI 


046710 


py.Dii* 


000021 


Biirucfti» 
RnwNEN* 


AAA9AA 


SI .I2R* 


AAAAAA 

040000 


TCTC Vfk 

TSTilP 


AH W7 

03137 f 


o.yscH 


047474 


PW.D13* 


000022 


BlMCm» 


AAA1 A/. 


CI BAB» 

51 .PAR* 


lAAAAA 
100000 


TCTAtM 

TST61P 


03337 1 


o.xxx 


052106 


PU.D22* 


0CO020 


RmSoc* 


AAA1 1 T 

0001 1 r 


CO ATIm 

S2.ATI* 


AAAA1 A 
000010 


TCT9tK 

TST7IP 


f*TAC99 

636327 


PASRPT 


022076 


py.NOP* 


000000 


RnrMB« 


AAAA9A 

OOOOcO 


C9 BTta 

Sc.BTI* 


AAAAAl, 
000004 


TCTBIM 

TSToIP 


AAA'S 

040262 


PATCH 


0S3214 6 


Py.N01> 000023 


BMBirTPB 
RWRle* 


AAAA97 
UUOvcr 


Sc.PlPI* 


AAA9nA 
OOOcOO 


TCTBtfk 

TSTtIP 


AA 9A7A 

042070 


PATOAT 


0207S2 


PU.ROE> 


000024 


OMB s 


A1AAAA 
U1UUUU 


C9 ti Lis 
Sc. JLH* 


AAA1AA 
000100 


TT tBeB» 

11 JBFR* 


177CAO f 

177962 u 


PC. ERA* 002A00 


PU.RDR* 000001 


DUBArir 


A1AKA 
w IVJ9w 


C9 tilB* 
Sc.lNR* 


AAAA9A 
OVwVcV 


TTtrCBiB 

1 1 llSR* 


1 r f >oO u 


PC.IEM 


002000 


PW.ROS* 


OOOOOS 


si • 


1 AAAAA 


Sc.UUl* 


AAAA^A 
UUUV4W 


1 1 ivct* 


AAAAAA It 
OOVOOO U 


PC.NOO* 0Q1000 


PW.RFI* 


000003 


ate * 


A9AAAA 


Sc.UND* 


AAAAAX 
VVW/V3 


TTAABBs 


1 f f 300 


PC.ftEL* 


000000 


PU.WCTs 


000006 




AAA71 1 


TBI Btm> 


AAXAtA ft 


TTOCSR* 


177564 


PC. REV* 000400 


PW.UFI* 


000004 


CBKI AV 


Aini^A 
U lU 1 9U 


TrAAcr 


AA&A1 9 


TUV2A 


002000 G 


PKBCNT* 


000006 


PU.UFN« 000007 




AAAAAA 


I UUtOw 


AAA91 9 


TSARGC* 


000003 


PKHI « 


000004 


PU.UMI> 000010 






TCilBI 


AAXAAA ft 


TtCODE* 


001130 


PXLOW ■ 


000002 


PW.UNP* 


000011 


CBi AATa 


AAAAAA 




AAXAAA ft 


TIERRN* 002120 


PKTAOD 


007110 


PU.VTRs 000002 


CFI 9 a 


AAAAA9 


TCBfl Ca 


AAAA1A 


TSEXCP* 


000000 


PKTFM 


0070S2 


P.ACK « 


100000 


CFTIIAP 


A9A1AA 


TCCTftMa 
ICS INU* 


AAAA1 t 
UUUU 1 3 


TtFLAG* 


000040 


PKTGET 


011550 6 


P.CMO « 


000037 


CFTII 
SC 1 U 


A991YA 


TEW Acr 


AAC7C1 

Wjf3 i 


TSFREE* 


053232 


PKTNES 


011574 6 


P.CONT* 000012 




M^KtJ^ ft 


If mat 


AAAA<CX 
VU0U33 


TSGNAN* 000000 


PKTNEW 


007145 


P.CVC « 


040000 


>r nEitn 


AAXAAY 


TtBCtfP 
1 jnCAr 


A10A9 ft 


TSHILl* 


000007 


PKTRAM 


004643 6 


P.Fm « 


000140 


c( mp 




TIMCftA 


A1A97A 
V IOC> u 


TSLAST* 


000001 


PKTSSR 


011520 6 


P.FORN* 000011 




A11CAA ft 


T tklFBB 

1 inCnn 


A11&7X 


TILOLI* 


000000 


PMT « 


001000 6 


P.6ETS* 


000017 


SPPTAI 


AA9ltA ft 


TirB a 
IK0 • 


Iff JVC 


TSLSVN* 010000 


PRAHPK 


013450 


P.IE « 


000200 


ttFl Aft 


AAXIAA ft 


TKC a 


1 77<SAA 

Iff 9ww 


TSLTNO* 000013 


PMCXP 


016160 


P.INIT> 


000013 


«ina«i 


A11A4A 

V 1 I*l1v 


TBPRfP 

1 m UT n 


AA9f7A ft 
vvC3fO 11 


TSNESTs 


000000 


PRSNSG 


016026 


P.HODE* 


007400 


UttPT 


AAXXX9 


TUAM 


VI ItCC 


TSNSO « 


000000 


PMREC 


016162 


P.OPP « 


020000 


CAP IMI 
•ur irai 


1/ II 


TPft a 


177C4A 
Iff 3mn 


TSNSI « 


000005 


PfiSTOT 


016113 


P.P0S1« 


000010 


arwvc 


AA77<9 ft 


TPC a 

Ira " 


1 f f 90^ 


TSNS2 « 


000002 


PMVTF 

rnBi 1 C 


01^A19 ft 

U 1 90 1 C II 


P.READ« 


000001 






TBAtlCT 


0091X4 ft 

WVC 1 3^ Q 


TSNS3 * 


000003 


PHI ■ 


002000 6 


P.SVB « 


010000 




ACfAC'l 


TCPA a 


17777A ft 
1 f f f f 0 II 


TtPCNT* 


000000 


PRIAOD 


007524 


P.yRIT« 


0000C5 




AC11 A1 


TCBAII a 


177777 ft 
1 f f f f f II 


TSPTAB* 


010103 


PItlAO 


007574 


P.URTC* 


000004 




1 33 


TCPAI a 


17777ft ft 
1 f f f f 0 II 


TtPTHVs 


000001 


PR18X0 


007156 6 


P.URTS« 


000006 


CPA a 


1 77*579 


laBAnc 


09AS94 

WC*9»* 


T$PTNU* 


000001 


PIIIEQU 


007424 


QVP 


002152 6 




1 77<7A 

1 f 131^ 






T$S.*Vt« 


177777 


PRIPKT 


006704 6 


RAHASC 


013616 


SR2 > 


177576 


TCM a 


17777A fi 

1 f f f f Q II 


TtSEGL* 


177777 


PHlRAfl 


007432 


RAMDAT 


002206 6 


SR3 > 


172516 


TCIIBU a 


177777 ft 

1 f f f f f II 


TtSEKO* 


010000 


PRITAD 


007640 


RAMER 


010456 6 


SSR « 


000200 


TCIkBI a 
1 aVBL * 


17777A fi 
1 f f f f 0 II 


TSSIZE* 


000005 


PIIITSS 


005264 


RANERR 


016200 6 


STATCG 


012064 


1 ar tuv 


OOAf C9 

VWM33C 


TtSUBN* 


000001 


PRITO 


007710 


RANEXP 


016220 6 


SVC6BL* 


000000 


TCBC 1 9 

1 aiic J * 


AAAOAA 


TSTAGL* 


177777 


PRIXOR 


007306 6 




014362 


$VCJNS« 


000000 


1 aavcr 


OOftI 99 
wo 1 cc 


TSTAGN* 010105 


PRIOO > 


000000 6 


RANFOR 


007462 


SVCSUB* 000001 


TCCP a 
1 aaii * 


AQOQOO fi 

www II 


TITEUP* 


000014 


PtiOl « 


000040 6 


RAHNLD 


010640 


SVCTA6* 


000000 


1 aaiioi 


OOXiOO 6 

WJ^W w 


TSTEST* 


000013 


PRI02 • 


000100 6 


RARIOP 


010644 


SVCT$T« 


000001 


I aanr u 


00^7X1 
w^f 3 1 


TITSTPI* 177777 


PIII03 * 


000140 6 


RARPD 


010715 


SILSTR* 


010000 


1 aann * 


000001 fi 

VWWV 1 II 


TSTSTS* 000001 


PRI04 m 


000200 6 


RANR5M 


010642 


SO.IDB* 


000010 


1 aan 


00X716 
wjf m 


T$$AU * 


010031 


mos ■ 


000240 6 


RMSIZ 


002246 6 


SO.IFB* 


000002 


TCTRI r 
1 a 1 skK 


002790 G 

WC rev II 


TItAUT* 


010033 


PffI06 • 


000300 6 


RAHTAO 


016206 6 


SO.IFP« 


000001 


TSTCNT 


0091^9 fi 

VWCIvC II 


TSSCLE* 


010034 


PRIG? « 


000340 S 


R8PCRA 


014750 


SO.ILO* 


000020 


TSTEND 


0174XA 

V 1 t^3Q 


TSSOAT* 


010104 


PRNESS 


013702 


RCVHIA 


002250 6 


SO.ION« 


000040 


TSTFLA 


002260 6 


T$SDU « 


010032 


PRfMO 


002264 6 


RCVLOA 


002252 6 


SO.IRO* 


000100 


TSTLOO 


017174 6 


TSSHAR* 


010100 


PRNSGE 


015242 6 


RKRR 


005104 


SO.IRU* 000004 


TSTPTR 


002262 6 


Tt$My * 


010000 


PRMSfiO 


015422 


READ « 


000014 


SO.ISP* 


000200 


TSTSET 


017226 6 


TSfINU 


010030 


- nam 






AAAAAI 


CI trca 


AA9AAA 


T«Tiin 


09X700 


TttNSGs 


Q1009X 



S£Q 186 



CZTUVAO TU80 FRONT END PRT A NACRO Ml 200 29-nAR-85 13:24 PAGE 
SYMBOL TABLE 



TStPC « 


000001 




1 9mC 


WC9C3U 




0XC71i. 
UJjf 14 


T$tPRO» 010027 




Ti 
I* 


0941^4 fi 


T7AATA 


U390%V 


TSSPTAs 010103 






097944 


T7flTA 
1 rV IM 


0X<709 


TttRPT* 01003S 




T4BATA 


0979C0 


T7IMT 


0X4^^0 


1 ••5CU* 


01UU0U 




T4Ilir 


0977Y5 


T7l OOP 




TMcnc • 
1 ••>Uf • 


UIUIUI 




T4l OOP 


696910 


T7M( 


0X57X4 




UlUVcO 




1 ^HOW 


097176 




0X40X1 




ii1flA77 






097940 


T7MIIiT 


0X6X47 


1 ••AH ■ 


UIVUUI 




1 V 1 


V 1 


TTMIiMA 
1 rnnoM 


0X61 IX 


1 1 C 


VI VvfO 




T4SP 


027260 


t7pack 


0154X0 


T1 

1 1 






T4SSR 


027646 


T7PKT 


01S679 


Til nop 






T4TSBA 

1^1 


030024 


t7rst 

1 f n w 1 


036556 


T1 1 

1 1 a 1 






T4 1 

1 ^ # 1 


026210 


T7RT9 


016610 


T1 7 


M\tA7 




T4 2 

1 ^ • » 


026512 


t7ssr 

1 * 


016260 


T10 

1 IV 






T4-S 


026764 


T7CC|||I 


036170 


TIOBFR 

1 1 vor w% 






T42DAT 


027304 


T7 1 

1 • • 1 


031526 


T10DAT 


044220 




T42D0NB 


027320 


T7.2 

1 * 


034112 
lie 








T ...NBA 


027320 


T7 3 

1 * « V 


034504 




04432S 




T42IIEJ 


02745^ 


T7.4 


035374 


tionba 






T44IIEJ 


027550 


T8 


036704 fi 




044210 




T5 


030206 6 


T8BFR 


037462 

V W • ~ Wfc 


TIOilES 


044S26 




T58FR 


030732 


TBBF2 


037532 


TIOSSR 


044437 




TSDATA 


030720 


TBDATA 


037450 


Til 

111 


044S76 fi 




T SLOOP 


030242 


TBDTA 


037520 


111 vr n 






TSNNSG 


031300 


TBLOOP 


036740 


T11BS0 

1 1 1V«V 


045060 




T5NVCK 


031121 


T8NBA 


0^7552 

WW > w ^w 


1 1 1 • 


04S061 




T5PACK 


030710 


TSNINT 


040134 


T11BS2 

■ 1 1 Vwfi 


04S062 




TSSSR 


031211 


T8PACK 


037440 


Til DAT 


045060 




T5VCK 


030752 


T8PK2 


037510 


T11DTA 


045500 




TSVCK2 


031045 


T8REST 


040314 


TIILCID 

1 1 lk«w 


044632 




T6 


031416 6 


TflRT2 


040356 

W~WwwW 


IWM 






T6BFR 


032342 


TSSR2 


040060 

WW Www 


T11MIN 

1 1 1 Iv AW 


045566 




T6DATA 


032330 


T8SSR 


040004 

W ■WWW" 


T11PAC 

111 r WW 


045050 




T6INT 


033217 


T8TSBA 

• IP 1 WW J i 


040212 

w vww • w 


T11PK2 


045470 
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